Первая задача:

program shet;

uses crt;

var mas: array [1..10] of integer;

i, sh: integer;

begin

for i:=1 to 10 do

begin

mas[i]:=random(10);

write(mas[i], ' ');

if (mas[i] mod 2 = 0) then sh:= sh + 1;

end;

writeln;

write(sh, ' shetnix shisel');

end.

Вторая задача:

program mas;

uses crt;

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

i, x: integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i], ' ');

end;

writeln;

writeln('Enter x');

readln(x);

for i:=1 to 10 do

begin

if (a[i] < x)then write (a[i], ' ');

end;

end.