const Nmax=10000;
var n,i,s,b,j: integer;
a:array [1..Nmax] of integer;
begin
Writeln('Vvedite dliny posledovatelnosti(n<=10000)');
Readln(n);
Writeln('Vvedite posledovatelnost');
For i:=1 to n Do Begin
s:=0;
Readln(A[i]);
While a[i]>=1 Do Begin
b:=a[i] mod 10;
S:=s+b;
a[i]:=a[i] div 10;
end;
If s mod 8=0 then
for j:= i to n-1 do a[j]:=a[j+1];
end;
For i:=1 to n Do Write(A[i],' ');
Readln;
end.
Добавлено через 1 мин.
нужно удалить числа сумма цифр которых делится на 8