| 
           
 Задача 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. 
	
  
       |