Cho 1 dãy số gồm n số nguyên dương(N<=50). Thực hiện các yêu cầu sau: a. Nhập dãy số, với số lượng nhập vào từ bàn phím b. Hiển thị dãy số theo hàng ngang c. Tính tổng các phần tử của dãy d. Tìm phần tử lớn nhất của dãy số e. Đếm xem có bao nhiêu số chẵn trong dãy số Nhanh lên mọi người đang thi 60 điểm

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.