Tin học 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ị t 13/07/2021 By Ruby 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. Trả lời