Viết chương trình nhập từ bàn phím số nguyên dương n, n nhỏ hơn bằng 200,và dãy số nguyên A gồm n phần tử. In ra màn hình số các số dương chẵn, tính TBC các phân tử có giá trị trong phạm vi từ trừ 1000 đến 1000.
Trả lời (1)
-
uses crt;
var a:array[1..200]of integer;
i,n,tbc,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so duong chan la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);
writeln;
tbc:=0;
dem:=0;
for i:=1 to n do
if (-1000<=a[i]) and (a[i]<=1000) then
begin
tbc:=tbc+a[i];
dem:=dem+1;
end;
writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);
readln;
end.
bởi Tra xanh
18/11/2021
Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
nhập mảng số nguyên M phần tử (M<>0, M thuộc tập số tự nhiên) đếm số phần tử mà giá trị của nó chia hết cho 3 và 5 trong chương trình.
19/12/2022 | 0 Trả lời
-
trình bày các đặc điểm về khoá chính bảng?
24/12/2022 | 0 Trả lời
-
Viết chương trình kiểu mảng nhập 10 số in ra màn hình các số âm và số âm phải lẻ, đếm xem có bao nhiêu số lẻ
02/02/2023 | 0 Trả lời
-
Hãy viết chương trình trên Pascal, nhập vào 2 số và tính tổng 2 số đã nhập (ghi kết quả ra màn hình đồng thời ghi 2 số nhập từ bàn phím và tổng của chúng vào tệp “e:\tong2so.doc”).
05/03/2023 | 0 Trả lời
-
Lập chương trình nhập vào 2 chuỗi bất kỳ a, b(với chuỗi b là con của
chuỗi a, tức là trong chuỗi a có 1 phần giống chuỗi b). Sau đó tìm và in ra màn hình vị trí
đầu tiên tìm thấy chuỗi b trong chuỗi a.06/03/2023 | 0 Trả lời
-
Var a : array[0..50] of real
K:= 0
for i := 1 to 50 d
if a[i] > a[k] then k := i
Đoạn chương trình trên thực hiện công việc gì dưới đây?
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mản
C. Tìm chỉ số của phần tử lớn nhất trong mả
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
14/03/2023 | 0 Trả lời
-
Viết chương trình nhập dãy số nguyên gồm 10 số đém có bao nhiêu số chia hết cho 5?
15/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 1 dãy số nguyên gồm n phân tử tính và viết ra màng hình tổng của số dương trong dãy. (nhập từ bàn phím số phần tử N và các phần tử trong dãy)
16/03/2023 | 0 Trả lời
-
"ABCS"; "?A"; "15.1"; "@THCS"
21.5; 22.6; 30.1; 62.8; 10; 3
"s"; "a"; "?"; "1.5"; "3"
15; 21; 98; 35; 22; 30
20/03/2023 | 0 Trả lời
-
viết chương trình python nhập xâu xoá tất cả các chữ số có trong xâu
23/03/2023 | 0 Trả lời
-
Một tệp văn bản có kích thước 50Kb. Bằng cách nào ta có thể truy cập trực tiếp vào byte thứ 1000 mà không cần đọc qua 999 byte đầu.
24/03/2023 | 0 Trả lời
-
viết chương trình nhập 1 số tự nhiên n từ bàn bàn phím kiểm tra xem n là số nguyên tố hay hợp số. Lưu ý nếu n-0 hoặc n-1 thì không phải là số nguyên tố cũng không phải là hợp số
30/04/2023 | 0 Trả lời
-
a, Viết các khai báo biến cần thiết.
b, Viết các thủ tục gắn tên tệp và mở tệp phù hợp.
c, Viết câu lệnh để đọc các số nguyên a từ tệp ‘DULIEU.INP’ rồi ghi các số không chia hết cho 7 và tổng của các số đó vào tệp ‘KCHIA7.TXT’.
07/05/2023 | 0 Trả lời
-
Nhập vào dãy số nguyên có 200 số. Hãy hiển thị ra màn hình những số chẵn?
08/05/2023 | 0 Trả lời
-
Viết chương trình C++ để nhập một số nguyên x và n. Tính giá trị của
t=x - 1/3!x3 + 1/5!x5 - 1/7!x7 + 1/9!x9+…+1/n!(xn).
14/07/2023 | 0 Trả lời
