Главное меню

Сформировать и вывести на экран в виде таблицы массив А[1..4,1..6] заполнив его целыми случайными чи

Автор Micyell, Март 19, 2024, 01:39

« назад - далее »

Micyell

Как выполнить. Сформировать и вывести на экран в виде таблицы массив А[1..4,1..6] заполнив его целыми случайными числами из интервала [25,80]
Без gmod и тому подобных
Просто обычный набор команд
В FREEPASCAL

Ganar

var
  A: array [1..4, 1..6] of Integer;
  i, j: Integer;
begin
  Randomize;
  for i := 1 to 4 do
    for j := 1 to 6 do
      A[i, j] := Random(56) + 25;
  for i := 1 to 4 do
  begin
    for j := 1 to 6 do
      Write(A[i, j]:4);
    Writeln;
  end;
end.