Помогите отредактировать программу - Паскаль. Где-то ошибка. Необходимо удалить первый кратный 3 элемент массива. program udalenie;var i,n,k:integer;a:array[1..1000] of integer;beginassign (input,'input.txt');assign (output,'ou...
Помогите отредактировать программу - Паскаль. Где-то ошибка.
Необходимо удалить первый кратный 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.
Гость
Ответ(ы) на вопрос:
ГостьЕсли первый кратный 3, то после срабатывания условия if a[i] mod 3=0 и удаления элемента, должен быть выход из цикла(break).
Не нашли ответ?
Похожие вопросы