Giúp mình với, mình cảm ơn Pascal: Viết chương trình nhập vào mảng A có tối đa 50 phần tử, kiểu Nguyên. xuất mảng ra màn hình Tính tổng chẵn và tổng lẻ trong mảng
2 câu trả lời
uses crt;
var A : array[1..50] of integer;
i, n, s1, s2 : integer;
begin
clrscr;
write('Nhap so phan tu co trong day : '); readln(n);
s1 := 0; s2 := 0;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' : '); readln(A[i]);
if A[i] mod 2 = 0 then s1 := s1 + A[i] else s2 := s2 + A[i];
end;
write('Xuat mang : ');
for i := 1 to n do write(A[i] : 4);
writeln;
writeln('Tong phan tu chan : ', s1);
writeln('Tong phan tu le : ', s2);
readln
end.
program baitap;
Var
n,i,TC,TL:longint;
A:array[1..1000] of longint;
Begin
Repeat
write('Nhap so phan tu: '); readln(n);
until n<=50;
TC:=0; TL:=0; {Khởi tạo tổng chẵn, tổng lẽ =0}
For i:=1 to n do
begin
Readln(A[i]); {Nhập phần tử}
If A[i] mod 2=0 then TC:=TC+A[i] else TL:=TL+A[i]; {Tính tổng chẵn và tổng lẽ}
End;
for i:=1 to n do write(A[i],' '); writeln; {Xuất mảng}
writeln('Tong chan: ',TC); {Xuất tổng chẵn}
writeln('Tong le: ',TL); {Xuất tổng lẽ}
Readln;
End.
