Const n=кол-во элементов
var x:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
x[i]:=1+random(9); //заполняем массив числами от 1 до 9
for i:=1 to n do
s:=s+x[i];
writeln(s);
readln;
end.
26 скорее всего, учили когда-то
Он нёс принтер, тк в задачи нет мышки вообще
Обычно размер указывают, раз нету, взял по дефолту 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;
<span> End.</span>