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.
