viết chương trình pascal nhập vào từ bàn phím một dãy n số nguyên: a, Tính giá tri trung bình của n số nguyên vừa nhập vào b, In ra các số chắn, dương của dãy số c.Đếm xem trong dãy số có bao nhiêu số khác 0

832438347504295

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 41 xem

1 trả lời

Thích Trả lời

thaovy01

program phuongt;
uses crt;
var A: array[1..500] of integer;
tb, n, d, i: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
tb:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
tb:=tb+A[i];
if A[i]<>0 then d:=d+1;
end;
writeln('a. Trung binh: ', tb/n:3:1);
write('b. So chan: ');
for i:=1 to n do if A[i] mod 2 = 0 then write(A[i]:3);
writeln;
write('So duong: ');
for i:=1 to n do if A[i]>0 then write(A[i]:3);
writeln;
write('Trong day co ', d, ' so khac 0');
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

namducvu1989

chương trình của mình mặc định n<=100 nhé bạn, mong bạn thấy câu trả lời của mình có ích.

var A: array [1..100] of integer;

i,n,dem: byte; T: real;

begin

write('Nhap so so nguyen cua day A: ');readln(n);

for i:=1 to n do

begin

write('Nhap gia tri A[',i,']: ');readln(A[i]);

end;

{ cau a }

T:=0;

for i:=1 to n do T:=T+A[i];

T:=T/n;

writeln('Gia tri trung binh la: ',T);

{ cau b }

writeln('Cac so chan, duong cua day so: ');

for i:=1 to n do if (((A[i] mod 2)=0) and (A[i]>0)) then writeln(A[i]:5);

{ cau c }

dem:=0;

for i:=1 to n do if A[i]<>0 then dem:=dem+1;

writeln('Co ',dem,' so khac 0.');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

It was easy for this home robot to clean the floor ->this home robot could ...

giúp mình câu c với mình cần gấp ạ

Nhanh hộ 🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻

cho biểu thức a=x/x+2+4/x-2+x^2-3x+18/4-x^2 1.rút gọn a 2.tìm x để a<0 3.tìm giá trị ko âm của x để bt a có giá trị nguyên

một công xưởng làm một số công việc cần 120 người làm trong 20 ngày sẽ xong.Nay có thêm 30 người nữa thì làm trong bao nhiêu ngày sẽ xong

5/15 + 4/20 - 9/36 giúp mik vs

Vai trò của Nguyễn Huệ đối với lịch sử dân tộc ta: - Đối với phong trào Tây Sơn ? - Đối vơi đất nước sau khi kết thúc chiến tranh ?

Giúp vs mong ah Cần đáp án thôi

Phân loại động cơ đốt trong nguyên liệu

Có thể luộc chín quả trứng trong ly giấy được không? Vì sao?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến