решите на паскале очень нужно
В заданной матрицы V (5,6) определить максимальные элементы с положительных
элементов каждой строки матрицы и сформировать из них одномерный массив. Вывести исходную матрицу и создан массив
В заданной матрицы V (5,6) определить максимальные элементы с положительных
элементов каждой строки матрицы и сформировать из них одномерный массив. Вывести исходную матрицу и создан массив
More Questions From This User See All
Answers & Comments
Verified answer
const n=5; m=6;
var
v:array[1..n,1..m] of integer;
b:array[1..n] of integer;
i,j,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
v[i,j]:=random(100)-50;
write(v[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
begin
max:=0;
for j:=1 to m do
if (v[i,j]>0)and(v[i,j]>max) then max:=v[i,j];
b[i]:=max;
end;
writeln('Полученный массив:');
for i:=1 to n do write(b[i],' ');
end.
Пример:
Исходный массив:
19 12 -23 -40 -1 9
-42 18 -6 -13 -24 -31
22 26 -31 32 22 -8
-22 -7 20 0 48 35
-22 34 -46 -44 -48 -29
Полученный массив:
19 18 32 48 34