Программа  ввода   элементов   целочисленной матрицы X  максимального размера  20x20 элементов.

Program Pr34 (Input, Output);         

Объявление имени программы

Var         

Блок объявления глобальных переменных

X             : Array [1..20, 1..20] Of Integer;       

Переменная X - целочисленная матрица максимального размера 20x20

M, N  : Integer;   

M - число столбцов, а N - число строк вводимой матрицы

i, j  : Integer;        

Переменные i, j - параметры циклов

Begin    

Начало тела программы

WriteLn ('PASCAL: Ввод элементов прямоугольной таблицы.');          

Формулировка цели алгоритма

Write ('Введите число строк: ');     

Вывод запроса N - числа строк исходной матрицы

ReadLn (N);         

Ввод N

Write ('Введите число столбцов: ');              

Вывод запроса M - числа столбцов исходной матрицы

ReadLn (M);        

Ввод M

WriteLn ('Введите поочередно элементы таблицы:');               

Запрос ввода элементов самого массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередной строки

For j := 1 To M Do             

Цикл для j от 1 до M, где j - номер очередного столбца

Begin    

Начало тела цикла

Write ('X[', i, ',', j, '] = ');      

Вывод удобной подсказки

ReadLn(X[i,j]);    

Ввод очередного элемента - X[i,j]

End;      

Конец тела цикла

WriteLn ('Ввод закончен.');             

Сообщение пользователю об успешном вводе массива

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.