Program DAYSONGUYEN;
Uses crt;
Var a:array[1..50] of integer;
i,n,max,tsl,tong:integer;
Begin
Clrscr;
Writeln('CAC BAI TOAN VOI DAY SO NGUYEN');
Write('Nhap so phan tu cua day n= '); readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']=');readln(a[i]);
End;
Write('A. Day so vua nhap la: ');
For i:=1 to n do Write(a[i]:4);
Writeln;
tong:=0;
For i:=1 to n do tong :=tong+a[i];
Writeln('B. Trung binh cong cua day so la: ',tong/n:6:2);
tsl:=0;
for i:=1 to n do
if a[i] mod 2 = 1 then tsl:=tsl+a[i];
Writeln('C. Tong cac so le cua day so la: ',tsl);
Max:=a[1];
for i:=2 to n do
If Max < a[i] then Max:=a[i];
Writeln('D. Gia tri lon nhat cua day so la: ',Max);
Readln;
End.
Ý kiến bạn đọc
Những tin cũ hơn