Дана матрица К (3,3), найти минимальный элемент массива в строке с индексом 3 и заменить этим значением все элементы главной диагонали

Question

Информатика

Артамоха

13 октября, 07:58

Дана матрица К (3,3), найти минимальный элемент массива в строке с индексом 3 и заменить этим значением все элементы главной диагонали

+4

Ответы (1)

Знаете ответ на вопрос?

Геруша · Answer 1

var

a:array [1 ... 3,1 ... 3] of integer;

min, i, j:integer;

begin

randomize;

for i:=1 to 3 do begin

for j:=1 to 3 do begin

a[i, j]:=random (9) + 1;

write (a[i, j]:4) ;

end;

writeln;

end;

min:=a[3,1];

for i:=2 to 3 do

if a[3, i]
writeln ('Min: ', min) ;

for i:=1 to 3 do begin

for j:=1 to 3 do begin

if (i=j) then a[i, j]:=min;

write (a[i, j]:4) ;

end;

writeln;

end;

readln;

end.