Предмет: Информатика,
автор: Diman55555
Дана двумерная матрица n на m.найти максимально отрицательное и разместить его в центре матрицы. Алгоритм и программа
Ответы
Автор ответа:
0
const m=5; n=4;
Var a:array[1..m,1..n] of integer; i,j,max:integer;
Begin
randomize;
for i:=1 to m do
for j:=1 to n do a[i,j]:=random(201)-100;
max:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<max then max:=a[i,j];
if max=0 then writeln('В матрице нет отрицательных элементов.')
else a[(m div 2)+1,(n div 2)+1]:=max;
for i:=1 to m do //Вывод матрицы. Необязательно.
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
End.
Var a:array[1..m,1..n] of integer; i,j,max:integer;
Begin
randomize;
for i:=1 to m do
for j:=1 to n do a[i,j]:=random(201)-100;
max:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<max then max:=a[i,j];
if max=0 then writeln('В матрице нет отрицательных элементов.')
else a[(m div 2)+1,(n div 2)+1]:=max;
for i:=1 to m do //Вывод матрицы. Необязательно.
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
End.
Похожие вопросы
Предмет: Химия,
автор: ks0309336
Предмет: Математика,
автор: povarisovavasilisa91
Предмет: Литература,
автор: AsaiSeliverstova32
Предмет: Обществознание,
автор: Kseniya111