Создание матрицы 5×4, вывод ее на экран по строкам — Pascal(Паскаль)

program Massiv_2;
  const
       N = 5; { Число строк }
       M = 4; { Число столбцов }
  var
       Table : array [1..N, 1..М] of integer; { Заказываем область памяти для хранения двумерного массива из N строк и М столбцов }
{ Вообще говоря, нигде не определено, что первый индекс - это номер строки, а второй - это номер столбца. Так как выводом на экран занимается программист, он сам решает, как ему удобнее.
Нам удобнее считать, что номер строки - первый индекс, а номер столбца - второй }
       i, j : integer; { Переменные для хранения индексов строки и столбца }
begin
{ Заполнение массива датчиком случайных чисел;}
  randomize;
  for i:=1 to N do
    for j:=l to M do
      Table[i, j]:=Random(100); { Запись случайного числа в массив на место с номером строки i и номером столбца j }
{ Вывод матрицы на экран по строкам; }
  for i:=1 to N do
    begin
      for j:=1 to M do
        write(Table[i, j]);
      writeln { Переход на новую строку после вывода всех элементов строки i }
    end;
  readln
end.

Leave a Comment

68 − 60 =