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ố.
2 câu trả lời
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.
Program Hello;
uses crt;
var min,max,t,tl,tc,i,n,x:longint;
tbc:real;
begin
max:= low(longint);
min:= high(longint);
readln(n);
for i:= 1 to n do
begin
read(x);
if max < x then max:= x;
if min > x then min:= x;
t:= t + x;
if x mod 2 = 0 then tl:= tl + x else tc:= tc + x;
end;
tbc:= t / n;
writeln('Max: ', max);
writeln('Min: ', min);
writeln('TBC: ', tbc:2:2);
writeln('Tong chan: ', tc);
writeln('Tong le: ', tl);
readln;
readln;
end.
