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.

Câu 1 :

uses crt;

var a : array [1 .. 100] of integer;

i, n, s: integer;

begin

clrscr;

s := 0;

write('Nhap so n : '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do begin read(a[i]);

if a[i] mod 2 = 0 then s := s + a[i]; end;

write('Tong cac so chan : ', s);

readln

end.

Câu 2 :

uses crt;

var a : array [1 .. 100] of real;

i, n : integer;

begin

clrscr;

write('Nhap so HS : '); readln(N);

write('Nhap diem cua ', N ,' HS : ');

for i := 1 to n do read(a[i]);

write('Diem cua ', n ,' HS : ');

for i := 1 to n do write(a[i] : 2 : 1,' ');

readln

end.