Question

Удалить все двузначные элементы массива, заканчивающиеся на 2. Помогите пожалуйста с паскалем​

Answer 1

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 x, counter, i: integer;

begin

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

begin

 if counter > 0

   then a[i-counter]:= a[i];

 if (a[i] >= 10) and (a[i] <= 99) and (a[i] mod 10 = 2)

   then counter:= counter + 1;

end;

for i:=n-counter+1 to n do

 a[i]:= 0;

writeln('Вывод:');

for i:=1 to n-counter do

 writeln(a[i]);

end.

Язык PascalABC