Viết chương trình nhập vào dãy số và thực hiện:
– xác định giá trị lớn nhất giá trị nhỏ nhất.
– tính tổng trung bình dãy số vừa nhập.
– tính tổng các số chẵn số lẻ của dãy số.
Viết chương trình nhập vào dãy số và thực hiện:
– xác định giá trị lớn nhất giá trị nhỏ nhất.
– tính tổng trung bình dãy số vừa nhập.
– tính tổng các số chẵn số lẻ của dãy số.
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min,s,s1,s2:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
s:=0;s1:=0;s2:=0;
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
inc(s,a[i]);
if a[i] mod 2=0 then inc(s1,a[i]);
if a[i] mod 2=1 then inc(s2,a[i]);
end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln(‘Max: ‘,max);
writeln(‘Min: ‘,min);
writeln(‘Trung binh: ‘,s/n:0:2);
write(‘Tong so chan, so le: ‘,s1+s2);
readln;
end.