На главной диагонале все отрицательные элементы заменить нулями.
На главной диагонале все отрицательные элементы заменить нулями.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы