Viết chương trình nhập mảng, tính tổng các số chẳn, lẻ, âm, dương, chia hết cho một số, tìm Max, min

----- Nội dung dịch tự động từ ảnh -----
ục tiếp, giản tiếp m
ang một chiếu
4. Viết chương trình nhập mảng, tính tổng các số chẳn, lẻ, âm, dương, chia hết cho một số, tìm Max, min.
VD: Viết chương trình nhập, n mảng gồm n (n<= 250) phần tử, tính đưa ra màn hình
tổng các phần tử chắn của mảng
Program BT;
Type B Array [ 1..250] of integer;
Var A: B;
=
i, n : integer3;
Tongchan : longint3;
Begin
Write( nhap n’); Readln (n);
For i:= 1 to n do
Begin
Write (nhap phan tu thu' , i, :' );
Readln (A[i]);
End;
Tongchan:= %3;
For i:= 1 to n do if i mod 2 = 0 then Tongchan := TongChan + A[i];
Writeln (' Tong cac so chan la ', TongChan);
u Readln
End.