Лабораторная работа: Обработка одномерных массивов и матриц

begin

m[i,j]:=random;

writeln(m[i,j]:5:3);

end;

{nahozhdenie max}

max:=m[1,1];

for i:=1 to 3 do

for j:=1 to 4 do

if max<m[i,j] then max:=m[i,j];

writeln ('max= ',max:5:3);

{umnozhenie}

for i:=1 to 3 do

for j:=1 to 4 do

begin

m[i,j]:=m[i,j]*max;

{vyvod}

writeln('new massiv= ',m[i,j]:5:3);

end;

readln;

end.

Вывод результата

Вывод: я изучил и применил методы программирования действий по обработке одномерных массивов и матриц.