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
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
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.
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.