Question

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

Answer 1

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.