Nhập vào mảng số nguyên - Xuất ra mảng đảo ngược Tính tổng các số chẵn
1 câu trả lời
uses crt;
var a : array[1..100] of integer;
i, n, s : integer;
begin
clrscr;
write('Nhap so phan tu : '); readln(n);
s := 0;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' : '); readln(a[i]);
if a[i] mod 2 = 0 then s := s + a[i];
end;
writeln('Tong so chan : ', s);
write('Mang dao nguoc : ');
for i := n downto 1 do write(a[i],' ');
readln
end.
Câu hỏi trong lớp
Xem thêm
