Программа с процедурами ввода и вывода. Учебная программа, демонстрирующая работу процедур. Отличная заготовка для начинающих программистов. Процедуры без параметров.

program wwod_massiva_1; uses crt; const n=2;m=3; var a:array[1..n, 1..m] of real; i,j: integer; Quit:char; {процедура ввода} procedure wwod; begin clrscr; writeln('Ввод массива (элементов матрицы) по строкам:'); for i:=1 to n do begin writeln('введите ',i,'-ую строку'); for j:=1 to m do read(a[i,j]); end; end; {процедура вывода} procedure wywod; begin writeln('Вывод введенного массива'); for i:=1 to n do begin writeln; for j:=1 to m do write(a[i,j]:4:1,' '); end; writeln; end; Begin {цикл с постусловием repeat} repeat {вызов процедуры ввода} wwod; {вызов процедуры вывода} wywod; {переменная Quit принимает значение введенного с клавиатуры символа} writeln('Выход из цикла - нажать клавишу q'); Quit:=readkey; {выход из цикла в, случае если нажата клавиша 'q'/'й'} until (Quit='q') or (Quit='й'); readln; End.

---