Помогите сделать) Удалить 1-ый элемент массива кратный 3.

Помогите сделать) Удалить первый элемент массива кратный 3.

Задать свой вопрос
Елизавета
сделать его = 0 либо вообще убрать?
Эвелина Антошка
сделать его 0
1 ответ
Const     
n = 10; 
var   
a : array [1..n] of integer; 
 i,m : integer; 
    begin
  for i := 1 to n do //При формировании забил
   a[i] := i;               //просто индексы
 
 m := 0; 
  i := 1;
 while (m = 0)
 and (ilt;=n) do   
  begin 
    if a[i] mod 3 = 0 then 
      begin   
     a[i] := 0;   
     m := 1; 
     end ; 
    i := i +1; 
    end;  
 for i := 1 to n do 
  writeln (a[i]); 
  end. 
Вадим Гуцаев
Спасиииииибооо <3
Денис Фильмаков
ОН ЗАЦИКЛИЛСЯ!
Настя Погреева
WTF
Александра Семин-Водова
у меня вроде работает PascalABC.Net
Павел Кройтман
И даже если подходящего элемента нет, то он выходит из while
Дмитрий Адисевич
оу. а у меня Турбо паскаль
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт