На главной диагонале все отрицательные элементы заменить нулями.

Question

Информатика

Марк

31 января, 07:56

На главной диагонале все отрицательные элементы заменить нулями.

+5

Ответы (1)

Знаете ответ?

Августа · Answer 1

Var a: array [0 ... 9, 0 ... 9] of real;

i, j: integer;

begin

for i : = 0 to 9 do

for j : = 0 to 9 do

a[i, j] : = random (999) - 500;

for i : = 0 to 9 do

for j : = 0 to 9 do

if ((i = j) and (a[i, j] < 0)) then a[i, j] : = 0;

for i : = 0 to 9 do

begin

writeln () ;

for j : = 0 to 9 do write (a[i, j]:5:0) ;

end;

end.