1. BÀI 1:
Viết chương trình nhập vào mảng gồm 10 số nguyên. Hãy tính tổng của các
số dương có trong mảng đó rồi đưa kết quả ra màn hình.
2. BÀI 2:
Viết chương trình nhập vào mảng gồm 20 số nguyên. Hãy tính tổng của các
số chẵn có trong mảng đó rồi đưa kết quả ra màn hình.
3. BÀI 3:
Viết chương trình nhập vào mảng gồm 30 số nguyên. Hãy tính tổng của các
số lẽ có trong mảng đó rồi đưa kết quả ra màn hình.
Câu 1:
uses crt;
var a:array[1..10] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
if a[i]>0 then inc(s,a[i]);
end;
write(‘Tong cac so duong: ‘,s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..20] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 20 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
if a[i] mod 2=0 then inc(s,a[i]);
end;
write(‘Tong cac so chan: ‘,s);
readln;
end.
Câu 3:
uses crt;
var a:array[1..30] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 30 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
end;
write(‘Tong cac so le: ‘,s);
readln;
end.
Bài 1:
program Tin_hoc;
uses crt;
var i,k:integer;
a: array [1..10] of integer;
begin
clrscr;
k:=0;
writeln(‘Nhap 10 phan tu cua mang:’);
for i:= 1 to n do
Begin
readln(a[i]);
If a[i] > 0 then k:=k+a[i]
end;
writeln(‘Tong cua cac so duong co trong mang la: ‘,k);
readln;
end.
Bài 2:
program Tin_hoc;
uses crt;
var i,k:integer;
a: array [1..20] of integer;
begin
clrscr;
k:=0;
writeln(‘Nhap 20 phan tu cua mang:’);
for i:= 1 to 20 do
begin
readln(a[i]);
If a[i] mod 2 = 0 then k:=k+a[i]
end;
writeln(‘Tong cua cac so chan co trong mang la: ‘,k);
readln;
end.
Bài 3:
program Tin_hoc;
uses crt;
var i,k:integer;
a: array [1..30] of integer;
begin
clrscr;
k:=0;
writeln(‘Nhap 30 phan tu cua mang:’);
for i:= 1 to 30 do
begin
readln(a[i]);
If a[i] mod 2 = 1 then k:=k+a[i]
end;
writeln(‘Tong cua cac so le co trong mang la: ‘,k);
readln;
end.
Nhớ cho mik là câu trả lời hay nhất nha