паскаль.Массив

[Tolian92]

вывести на экран двузначные элементы массива в которых есть цифра 4

program as;
var
 i: integer;
 a: array [1..n] of integer;
begin
 for i:=1 to n do
  a[i]:= random(200);
 for i:=1 to n do
 begin

end;
 readln;
end.

[Stilet]

if ((a[i] mod 10)=4) or ((a[i] div 10)=4) then выводим(a[i])

[Tolian92]

спасибо!Вот так получается?

program as;
var
 i: integer;
 a: array [1..n] of integer;
begin
 for i:=1 to n do
  a[i]:= random(200);
 for i:=1 to n do
 begin
if ((a[i] mod 10)=4) or ((a[i] div 10)=4) then write(a[i]);
 end;
 readln;
end.

[Stilet]

Вот так получается?

Возможно )