Регистрация
adelina2001levchuk
16.07.2020 16:01
Информатика
Есть ответ 👍

Информатика рисунок,буду очень благодарна!!

209
491
Посмотреть ответы 1

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

foma2004korol
foma2004korol
4,6(25 оценок)

program n1;

var

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

i, j, k, min: integer;

begin

for i : = 1 to 6 do begin

for j : = 1 to 6 do begin

a[i, j]: = random(101)-50;

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

writeln; end;

k : = 0;

for i : = 1 to 6 do

if a[i, 2]< 0 then k : = k+1;

min : = a[1, 1];

for i : = 1 to 6 do begin

for j : = 1 to 6 do

if a[i, j]< min then min : = a[i, j]; end;

for i : = 1 to 6 do

for j : = 1 to 6 do

if a[i, j]> 0 then a[i, j] : = min;

writeln ('k=', k);

writeln;

for i : = 1 to 6 do begin

for j : = 1 to 6 do begin

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

writeln; end;

end.

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