необходимо разделить элементы каждой строки матрицы на максимальный элемент этой строки
Оформить как подпрограммы:
1. ввод двумерного массива
2. алгоритм обработки массива
3. Вывод двумерного массива на экран
Все процедуры должны иметь параметры.
type matrix=array[1..7,1..7] of real;
var
i,j,n,m:integer;
Procedure input( var a:matrix); //ввод массива
begin
writeln('введите число строк и столбцов массива:');
read(n,m);
writeln('введите элементы массива: ');
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
end;
end;
Procedure go ( a:matrix); //обработка
var
i,j,n,m:integer;
amax:array[1..7] of real;
c:real;
begin
for i:=1 to n do
begin //обработка массива не идет
c:=a[i,1];
for j:=1 to m do
if amax[i]>c then amax[i]:=c;
if amax[i]<>0 then a[i,j]:=a[i,j]/amax[i];
end;
end;
Procedure output ( var a:matrix); //вывод
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]);
writeln;
end;
end;
var a:matrix;
begin
input(a);
go; // пишет неверное количество фактических параметров (
output(a);
end.