Задан двумернный массив вевести ** экран элементы больше 20

Question

Задан двумернный массив вевести на экран элементы больше 20

Answer 1

Var
a:array[1..10,1..10] of integer;
i,j:integer;

begin
{
здесь надо задать массив.
Как пример задания случайного массива:
 for i:=1 to 10 do
  for j:=1 to 10 do
   begin
    a[i,j]:=random(10)+1;
   end;
}
 for i:=1 to 10 do
  for j:=1 to 10 do
   begin
    if a[i,j]>20 then write(a[i,j])
   end;
end.