program ct;

uses crt;

var A:array[1..50] of integer;

      i,n,dem,M:integer;

      S:integer;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   writeln;

   write('Hien thi day so theo hang ngang: );

   for i:=1 to n do

     write(A[i]:3);

     S:=0;

   for i:=1 to n do

     S:=S+A[i];

   writeln('Tong cac phan tu cua day la: ',S);

     M:=A[1];

   for i:=1 to n do

     if A[i]>M then M:=A[i]

   writeln('Phan tu lon nhat la: ',M);

     dem:=0;

   for i:= 1 to n do

     if A[i] mod 2=0 then dem:=dem+1;

   writeln('So phan tu chan trong day la: ',dem);

readln;

end.

Học tốt!

program ct;

uses crt;

var s,i,n,d,Max:integer;

A:array[1..50] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

writeln;

write('day so theo hang');

for i:=1 to n do write(A[i]:4);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong cac phan tu trong day la',s);

Max:=A[1];

for i:=2 to n do

if Max<A[i] then Max:=A[i];

writeln('phan tu lon nhat trong day la',Max);

d:=0;

for i:=1 to n do

if A[i] mod 2=0 then d:=d+1;

writeln('so chan trong day la:',d);

readln

end.