Question

viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử .Sau đó thực hiện các công việc sau:

in dãy số vừa nhập ra màn hình

tổng của dãy số vừa nhập

tổng các số chẵn trong dãy

tổng các số lẻ trong dãy

tổng các số chia hết cho 3

mỗi n đc nhập từ bàn phím

giúp mình với các cậu ơi

mình cảm ơn nhiều

Answer 1

uses crt;
var a: array[1..100] of integer;
i,n,s,s1,s2,s3: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);

for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
write('day vua nhap la:');
s:=0;
for i:=1 to n do
begin
write(a[i],' ');
s:=s+a[i];
if a[i] mod 2=0 then s1:=s1+a[i];
if a[i] mod 2<>0 then s2:=s2+a[i];
if a[i] mod 3=0 then s3:=s3+a[i];
end;
writeln;
writeln('tong bang:',s);
writeln('tong chan:',s1);
writeln('tong le:',s2);
writeln('tong chia het cho 3:',s3);
readln
end.