Заполнить двумерный массив случайными числами от 10 до 100.

Var m : array[1..5,1..5] of Integer;
i,j : Byte;
Begin
Randomize;
For i:=1 to 5 do
Begin
   For j:=1 to 5 do
   Begin
   m[i,j]:=Random(91)+10;
   Write(m[i,j]:4);
   end;
Writeln;
end;
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!