Question

8.2.  Дан массив из целых чисел А(5,5). Все отрицательные элементы заменить на -1.

Answer 1

Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
  Randomize;
 ClrScr;
 Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
 For i:=1 to N do
  Begin
   Mass[i]:=Random(11)-5;
   Write(Mass[i]:4);
  End;
 Writeln;
 Writeln('Исходный массив после замены всех отрицательны на -1:');
 For i:=1 to N do
  If mass[i]<0 then mass[i]:=-1;
 For i:=1 to N do write(Mass[i]:4);
 Readln;
 End.

Answer 2

For i:=1 to N do
For k:=1 to M do
If mass[i,k]<0 then mass[i,k]:= -1;
For i:=1 to N do
Begin
For k:=1 to M do
Write(Mass[i,k]:4);
Writeln;
End;
Readln;
End.