8.2. Дан массив из целых чисел А (5,5). Все отрицательные элементы заменить на - 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.