Viết chương trình nhập n phần tử cho mảng A1…An
a,in mảng vừa nhập ra màn hình
b,in ra màn hình các số dương,tính tổng các số dương
c,tính giá trị trung bình các số dương của mảng
Viết chương trình nhập n phần tử cho mảng A1…An
a,in mảng vừa nhập ra màn hình
b,in ra màn hình các số dương,tính tổng các số dương
c,tính giá trị trung bình các số dương của mảng
uses crt;
var a:array[1..100] of integer;
n,i,s:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
end;
write(‘Day vua nhap: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
for i:=1 to n do s:=s+a[i];
write(‘Tong: ‘,s); writeln;
write(‘Trung binh: ‘,s/n:0:2);
readln;
end.