Bài 5. Từ bài toán đến chương trình

nguyen thao

Giải giúp mình 4 câu này vs mai mình thi rồi

1. Viết chương trình mảng số nguyên nhập n phần tử và in ra tổng các giá trị màn hình phần tử là số chẵn

2. Viết c/t mảng số nguyên nhập n phần tử và in ra tổng các giá trị màn hình phần tử là số lẻ

3. Viết c/t số nguyên nhập n phần tử và in ra tổng các gia trị màn hình phần tử là số dương

4. Viết c/t số nguyên nhập n phần tử và in ra tổng các gia trị màn hình phần tử là số vừa chia hết cho 2 và cho 3

Nguyễn Lê Phước Thịnh
17 tháng 6 2020 lúc 19:36

Câu 1:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan la: ',t);
readln;
end.

Câu 2:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la: ',t);
readln;
end.

Câu 3:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln('Tong cac so duong la: ',t);
readln;
end.

Câu 4:

uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then t:=t+a[i];
writeln('Tong cac vua chia het cho 2 vua chia het cho 3 la: ',t);
readln;
end.

Bình luận (0)

Các câu hỏi tương tự
Hằng Võ Thanh
Xem chi tiết
nguyen thao
Xem chi tiết
My Nguyen
Xem chi tiết
Kim Phụng Nguyễn
Xem chi tiết
Tuấn Kiệt Phạm
Xem chi tiết
phạm ngọc hân
Xem chi tiết
No Name
Xem chi tiết
Lý Mạc Sầu
Xem chi tiết
baopham
Xem chi tiết