Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
vy tường

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

Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:26

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.


Các câu hỏi tương tự
Trần Hà Thư
Xem chi tiết
Phan Thu
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
vy tường
Xem chi tiết
Trúc Linh
Xem chi tiết
Mai Phương Lê
Xem chi tiết
AETC丶NhấtㅤGG
Xem chi tiết
Anh Đức 8/8
Xem chi tiết
Ha Cam
Xem chi tiết