Program HOC24;

var i: byte;

t: longint;

a: array[1..10] of integer;

begin

For i:=1 to 10 do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so hang chan la: ',t);

readln

end.

Program HOC24;

var d,i,k: integer;

a: array[1..1000] of integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap K: '); readln(k);

for i:=1 to k do

begin

write('A[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to k do if nt(a[i]) then d:=d+1;

write('Co ',d,' so nguyen to trong mang A');

readln

end.

Program HOC24;

var s: string;

begin

s:='Ha Noi - thu do Viet Nam';

delete(s,9,7);

write(s);

readln

end.

program TrungBinhCong;
const
  MAX = 100;
var
  danhSach: array[1..MAX] of integer;
  n, i, tong: integer;
  trungbinh: real;
begin
  write('Nhap so ptu (toi da 100): ');
  readln(n);
  tong := 0;
  for i := 1 to n do
  begin
    write('Nhap giatri ptu thu ', i, ': ');
    readln(danhsach[i]);
    tong := tong + danhsach[i];
  end;
  trungbinh := tong / n;
  writeln('Tbc cua danh sach la: ', trungbinh:0:2);

  readln;
end.

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

i,n:integer;

s:longint;

tbc:real;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln

End.

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

i,n:integer;

s:longint;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

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

End;

Write('Tong cac so chan la ',s);

Readln

End.

Bạn bổ sung thêm đề nha.