Question

Pascal ABC. Дан массив целых чисел из 100 элементов, заполненных случайным образом числами из промежутка [-33; 33].
Удалить из него все элементы, в которых есть цифра 5.

Answer 1

var

 a: array of shortint;

 i,j:integer;

begin

 setlength(a,100);

 i:=0;

 j:=0;

 while i<=99-j do

   begin

     a[i]:=random(67)-33;

     write(a[i]:3);

     if (abs(a[i]) div 10 <> 5) and (abs(a[i]) mod 10 <> 5) then

       inc(i)

         else inc(j);

   end;

 setlength(a,100-j);

 writeln;

 writeln;

 for i:=0 to 99-j do

   write(a[i]:3);

end.