В заданном одномерном массива из 10 элементов, переставить элементы так, чтобы сначала стояли элементы - круглые числа, а затем все остальные.

var a: array[1 ... 10] of integer;

des: array[1 ... 10] of integer;

oth: array[1 ... 10] of integer;

ides, ioth: byte;

i: integer;

begin

writeln ('Заполните с клавиатуры массив');

for i : = 1 to 10 do readln (a[i]);

for i : = 1 to 10 do if a[i] div 10 = 0 then begin

ides : = ides + 1;

des[ides] : = a[i];

end else begin

ioth : = ioth + 1;

oth[ioth] : = a[i];

end;

for i : = 1 to ides do a[i] : = des[i];

for i : = (ides + 1) to (ides + ioth) do a[i] : = ioth[i];

for i:=1 to 10 do write (a[i]:4);

end.