Подскажите где ошибка. Выдаёт арифметическое переполнение?

@Gerg · Регистрация: 30.11.2013

Студворк — интернет-сервис помощи студентам

Pascal

program z1;
USES crt;
const N= 10;
var x: array [1..N] of integer; i: integer;
y: array [1..N] of integer;
begin
ClrScr;
randomize;
for i:= 1 to N do
begin
x[i]:= random(5+1)-2*5;
end;
for i:= 1 to n do
begin
write (' ',x[i],' ' );
end;
for i:= 1 to n do
begin
if x[i]<0 then Y[i]:=x[i]*x[i] else y[i]:=x[i];
end;
writeln;
for i :=1 to n do
write(' ',y[i],' ');
readkey;
end.

@Sanches · 01.12.2013, 09:26

Ошибки в программе нет, так же как и смысла. У Вас массив X содержит только отрицательные элементы, т.е. массив Y содержит квадраты X.
в цикле присвоения массиву X напишите

Pascal

1	x[i] := random(21)-10;

т.е. случайные числа в диапазоне от -10 до 10

Опции темы