Регистрация
alexey2030
23.08.2021 04:29
Информатика
Есть ответ 👍

Отредактировать программу - паскаль. где-то ошибка. необходимо удалить первый кратный 3 элемент массива. program udalenie; var i,n,k: integer; a: array[1..1000] of integer; begin assign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln(n); for i: =1 to n do read (a[i]); while i< =n do if a[i] mod 3=0 then begin for i: =k to n-1 do a[i]: =a[i+1]; n: =n-1; exit; end; for i: =1 to n do write(a[i],' '); close (input); close (output); end.

156
305
Посмотреть ответы 2

Ответы на вопрос:

Dashasvi
Dashasvi
4,8(33 оценок)
Если первый кратный 3, то после срабатывания условия if a[i] mod 3=0 и удаления элемента, должен быть выход из цикла(break).
ggggeorgiyggg
ggggeorgiyggg
4,5(11 оценок)

При выполнении этого фрагмента цикл выполнится 2 раза.

Популярно: Информатика