// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var n:=ReadInteger('n='); var x:=ArrRandom(n,-5,20); x.Println; if x.Min<0 then x:=x.Select(e->abs(e)).ToArray; x.Println end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 const nn=50; var x:array[1..nn] of integer; i,m,n:integer; begin Write('n= '); Read(n); Randomize; x[1]:=Random(26)-5; m:=x[1]; Write(x[1],' '); for i:=2 to n do begin x[i]:=Random(26)-5; if x[i]<m then m:=x[i]; Write(x[i],' ') end; Writeln; if m<0 then begin for i:=1 to n do begin x[i]:=abs(x[i]); Write(x[i],' ') end; Writeln end end.
y:=sqr(x);
Ещё счётчик цикла должен быть целочисленный. Var x: integer, а у тебя real
Program prim2;
Var y: real;
x:integer;
Begin
For x:=-10 to 10 do
Begin
y:=sqr(x);
Writeln(x, ' ', y)
end;
End.
Я кстати вообще не знаю зачем для вычисления корня Вы взяли тип real.