Дан массив A (5,5). Обнулить главную диагональ массива, если в ней найдется хот бы один отрицательный элемент

var

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

i, j:integer;

f:boolean;

begin

randomize;

f:=false;

writeln ('Исходный массив: ') ;

for i:=1 to 5 do begin

for j:=1 to 5 do begin

a[i, j]:=random (12) - 3;

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

write (a[i, j]:3) ;

end;

writeln;

end;

if f=true then begin

writeln ('Полученный массив: ') ;

for i:=1 to 5 do begin

for j:=1 to 5 do begin

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

write (a[i, j]:3) ;

end;

writeln;

end

end else writeln ('На главной диагонали нет отриц. эл.') ;

readln;

end.