Viết chương trình thực hiện yêu cầu sau: cho một dãy 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ố làm câu nào cũng đc hết á giúp

program ct;

uses crt;

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

      i,N,max,dem:integer;

      S:longint;

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('Hien thi day so theo hang ngang: ');

   for i:=1 to N do

     write(A[i]);

     S:=0; max:=A[1];

   for i:=1 to N do

     begin

        S:=S+A[i];

        if A[i] >max then max:=i;

     end;

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

   writeln('Phan tu lon nhat la: A[',i,']');

     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 i,n,Max,s,d: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('hien thi day so theo ngay nang');

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.