program RemoveElements;
vararr: array[1..10] of Integer;i, num, sum, digit: Integer;
beginwriteln('Enter 10 integers:');
for i := 1 to 10 dobeginreadln(num);arr[i] := num;end;
writeln('Array before removing:');
for i := 1 to 10 dobeginwrite(arr[i], ' ');end;
writeln;
writeln('Array after removing:');
for i := 1 to 10 dobeginsum := 0;num := arr[i];
end;end.
program RemoveElements;
var
arr: array[1..10] of Integer;
i, num, sum, digit: Integer;
begin
writeln('Enter 10 integers:');
for i := 1 to 10 do
begin
readln(num);
arr[i] := num;
end;
writeln('Array before removing:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
writeln;
writeln('Array after removing:');
for i := 1 to 10 do
while num <> 0 dobegin
sum := 0;
num := arr[i];
begin
digit := num mod 10;
sum := sum + digit;
num := num div 10;
end;
if sum <> 10 then
begin
write(arr[i], ' ');
end;
end;
end.