Информатика

Митяша

14 мая, 12:36

Помогите отредактировать программу - Паскаль. Где-то ошибка.

Необходимо удалить первый кратный 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.