Данй массив из целых чисел а(3,3). Определить минимальные элементы в каждой строке. Из них найти максимальный элемент
Данй массив из целых чисел а(3,3). Определить минимальные элементы в каждой строке. Из них найти максимальный элемент
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 3;
var
a:array[1..n,1..n] of integer;
minc:array[1..n] of integer;
i,j,min,maxr:integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
min:=100;
for j := 1 to n do
begin
a[i,j]:=Random(21)-10;
Write(a[i,j]:4);
if min>a[i,j] then min:=a[i,j]
end;
Writeln;
minc[i]:=min
end;
maxr:=-100;
Write('Минимальные элементы построчно: ');
for i:=1 to n do
begin if maxr
Не нашли ответ?
Похожие вопросы