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

это двумерный массив А [1..5, 1..5]

Ну так и надо писать же о.О

Program G;Uses Crt;Const N=5; M=5;Var i, k: integer; mass: array [1..n, 1..m] of integer;Begin ClrScr; For i:=1 to N do Begin For k:=1 to M do Begin Mass[i, k]:=random(21)-10; Write(Mass[i, k]:4); End; Writeln; End; Writeln;

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.

Обычно размер указывают, раз нету, взял по дефолту 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.