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