Задание:
Помогите отредактировать программу — Паскаль. Где-то ошибка. Необходимо удалить первый кратный 3 элемент массива. program udalenie; var i,n,k: integer; a: array[1… 1000] of integer; beginassign (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 doif a[i] mod 3=0 thenbeginfor i: =k to n-1 doa[i]: =a[i+1]; n: =n-1; exit; end; for i: =1 to n do write (a[i],'); close (input); close (output); end.
Решение:
Если первый кратный 3, то после срабатывания условия if a[i] mod 3=0 и удаления элемента, должен быть выход из цикла (break).
Знаете другой ответ?