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

bersenevaksenia1 bersenevaksenia1    3   19.07.2019 08:10    3

Ответы
irinaira72rt irinaira72rt  07.08.2020 10:01
// 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]]
ПОКАЗАТЬ ОТВЕТЫ
petr0poroshenko petr0poroshenko  07.08.2020 10:01
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика