| Задача 45. Создание матрицы 5x4, вывод ее на экран по строкам  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.
 
 
 |