Регистрация
AnnaVorob1999
26.10.2020 16:25
Информатика
Есть ответ 👍

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

267
332
Посмотреть ответы 2

Ответы на вопрос:

dima1026
dima1026
4,6(16 оценок)

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]< min then min: =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.

дангалах
дангалах
4,5(14 оценок)
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! function min(a,b,c,d: integer): =min(min(a,b),min(c,d)); begin   writeln(min(3,8,-2,0)) // пример вызова end.

Популярно: Информатика