uses crt;
Var A: array[1..250] of integer;
i,n:integer;
Begin
clrscr;
{Nhap mang 1 chieu}
Write(` Nhap vao so phan tu cua mang n= `); readln(n);writeln;
For i:=1 to n do
Begin
write(` Nhap vao phan tu thu `,i,`: `);
readln(a[i]);
End;
Chương trình
{Dem cac so am}
Dem:=0;
For i:= 1 to n do
If (a[i] <0) then Dem:=Dem+1;
Writeln(‘Co ‘,dem,’ so am trong day’);
{In cac so chia het cho 2 va 5}
For i:= 1to n do
If (a[i] mod 2 = 0) and (a[i] mod 5=0) then write(a[i]:5);
readln
End.