Составить программу преобразования двумерных массивов.
В целочисленной матрице А(3,4) найти m положительных элементов в четных столбцах. Сформировать матрицу В(3,4) по правилу
(i=1,…,3; j=1,…,4)
В первой строке матрицы А найти максимальный по модулю элемент.
Текст программы:
Program pr_4;
var
i,j,m:integer;
A,B: array [1..3,1..4] of real;
max:real;
begin
writeln('Vvod matrici po strokam');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
writeln('Vvedite element matrici');
readln(A[i,j])
end;
end;
m:=0;
j:=2;
while j<=4 do
begin
for i:=1 to 3 do
begin
if A[i,j]>0 then m:=m+1;
end;
j:=j+2;
end;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
if m=0 then B[i,j]:=A[i,j]
else B[i,j]:=A[i,j]/m;
end;
end;
max:=abs(A[1,j]);
for j:=1 to 4 do
begin
if max<abs(A[1,j]) then max:=abs(A[1,j]);
end;
writeln('Matrica A');
for i:=1 to 3 do
begin
writeln('');
for j:=1 to 4 do
begin
write(A[i,j]:5:0);
end;
end;
writeln('');
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.
Результат работы: