Bài 1: nhập vào số n bất kì từ bàn phím viết chương trình tính tổng các số chẵn nhỏ hơn n và , in kết quả ra màn hình
bài 2: viết chương trình nhập vào 1 dãy số bất kì từ bàn phím rồi tính tổng các số chẵn trong dãy số , in kết quả đó ra màn hình
bài 3 : viết chương trình nhập vào 1 dãy số bất kì từ bàn phím rồi giá trị trung bình của dãy số đó in kết quả ra màn hình.
Câu 1:
program tinh_tong;
uses crt;
var n,i,s:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do if i mod 2=0 then s:=s+i;
write(‘Tong: ‘,s);
readln;
end.
Câu 2:
program tinh_tong;
uses crt;
var a:array[1..100] of integer;
n,i,s:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2=0 then s:=s+a[i];
write(‘Tong cac so chan: ‘,s);
readln;
end.
Câu 3:
program tinh_tbc;
uses crt;
var a:array[1..100] of integer;
n,i,s:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n do s:=s+a[i];
write(‘Trung binh cong: ‘,s/n:0:2);
readln;
end.
B1:
program B1;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
if i mod 2=0 then T:=T+i;
write(‘Tong cac so chan = ‘,T);
readln
End.
B2:
program B2;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
clrscr;
write(‘Nhap do dai mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if A[i] mod 2=0 then T:=T+A[i];
end;
write(‘Tong cac so chan = ‘,T);
readln
End.
B3:
program B3;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
clrscr;
write(‘Nhap do dai mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
T:=T+A[i];
end;
write(‘Gia tri trung binh cua day = ‘,T/n:2:1);
readln
End.