Question

НАЙТИ ОШИБКУ В ПРОГРАММЕ ПАСКАЛЬ
var
x:integer;
begin
Randomize;
for x: = -2 to 10 do
while x>0 do
begin
x: random (-2;10)
Write;
end;
end.​

Answer 1

много ошибок

1. нельзя изменять x внутри самого цикла (for x: = -2 to 10 do), надо добавить иную переменную

2. оператор присвоения неправильно записан x: random(-2;10). Должно быть :=

3. Случайные числа из диапазона с отрицательным значением берутся не так random(-2;10), а так random(12) -2

4. если нужно вывести х на каждом шаге то нужно указать, что конкретно выводить write(x)

5. ну и хотелось бы видеть первоначальное задание, что программа должна делать.

например так:

var

 x, y:integer;

begin

 Randomize;

 for x:= -2 to 10 do

   repeat

     y:=random(12)-2;

     writeln(y);

   until y > 0

end.