Câu 1: Viết chương trình tính tổng các số chẵn dãy n số nguyên với n được nhập từ bàn phím
Câu 2: Viết chương trình nhập điệm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình với N và điểm kiểm tra được nhập từ bàn phiếm( sử dụng biến mảng).
câu 1:
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
s:=0;
for i:=1 to n do
if A[i] mod 2=0 then s:=s+A[i];
writeln(‘tong la:’,s);
readln
end.
câu 2:
program ct;
uses crt;
var i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap diem n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
writeln(‘diem tin cua hoc sinh la’);
for i:=1 to n do
write(A[i],’ ‘);
readln
end.