Регистрация
oksankavelsh
11.02.2020 17:12
Информатика
Есть ответ 👍

Информация если она неважна не сущесвенна для настоящего времени​

150
428
Посмотреть ответы 2

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

xzc999
xzc999
4,5(8 оценок)

Ненужная информация

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.

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