Дан массив 5 на 5, заполненный и положительными, и отрицательными числами. Если элементы главной диагонали отрицательны, замените их на 0

Вопрос школьника по предмету Информатика

Дан массив 5 на 5, заполненный и положительными, и отрицательными числами. Если элементы главной диагонали отрицательны, замените их на 0

Ответ учителя по предмету Информатика

Var

A:array[1..5,1..5] of integer;

i,j:integer;

Begin

WriteLn(‘Исходный массив:’);

For i:= 1 to 5 do

    Begin

    For j:= 1 to 5 do

        Begin

        A[i,j]:=random(21)-10;

        Write(A[i,j]:3,’ ‘)

        End;

    WriteLn

    End;

WriteLn;

WriteLn(‘Обработанный массив:’);

For i:= 1 to 5 do

    Begin

    For j:= 1 to 5 do

        Begin

        if i=j then

           if A[i,j] < 0 then A[i,j]:=0;

        Write(A[i,j]:3,’ ‘)

        End;

    WriteLn;

    End

End.