Заполнить двумерный массив случайными числами от 10 до 100.
Заполнить двумерный массив случайными числами от 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.
Гость// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=MatrixRandom(5,5,10,100);
Writeln(a)
end.
Тестовое решение:
[[26,15,69,59,40],[27,62,65,49,63],[99,80,37,44,40],[54,95,35,19,70],[45,31,28,88,68]]
Не нашли ответ?
Похожие вопросы