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

кис88 кис88    1   25.05.2019 00:30    2

Ответы
lailasarsenbaev lailasarsenbaev  20.06.2020 23:04
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика