writeln('Matrica B');

for i:=1 to 3 do

begin

writeln('');

for j:=1 to 4 do

begin

write(B[i,j]:5:2);

end;

end;

writeln('');

writeln('m = ',m);

writeln('maksimalniy po modulyu element pervosy stroki ', max:5:0);

readln;

end.

Результат работы:

Задание 5. Использование процедур

Даны две вещественные матрицы А(7,7) и В(5,5). Из матрицы А сформировать одномерный массив С по правилу, а из матрицы В сформировать массив D по тому же правилу. Для ввода матрицы, формирования одномерных массивов и вывода одномерных массивов применить три PROCEDURE. При вводе матрицы и выводе одномерных массивов вывести на экран сообщения с указанием соответственно имени вводимой матрицы или имени выводимого одномерного массива.

Правило: Из сумм квадратов элементов четных столбцов.

Текст программы:

Program pr_5;

type mas=array[1..7,1..7] of integer;

mas2=array[1..3] of integer;

var

A,B: mas;

C,D: mas2;

Procedure FillArr(var a:mas; row, col: integer);

var i,j:integer;

begin

for i := 1 to row do