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ìnhtổng của dãy số vừa nhậptổng các số chẵn trong dãytổng các số lẻ trong dãytổng các số chia hết cho 3mỗi n đc nhập từ bàn phímgiúp mình với các cậu ơimình cảm ơn...
Đọc tiếp
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
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.