Удалить из массива элемент в диапазоне [-50;50] равный заданному(вводится с клавиатуры)

1

Ответы и объяснения

Лучший Ответ!
2012-03-01T22:08:29+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array [1..100] of integer;
n:integer;
Found:boolean;

BEGIN
  read(n);
    for i := 1 to 100 do
  begin
      a[i]:= random(-50,50);
        if a[i] = n then Found := true;
    if Found then a[i]:=a[i+1];
  end;
END.