Pascal ABC. Дан массив целых чисел из 100 элементов, заполненных случайным образом числами из промежутка [-33; 33].
Удалить из него все элементы, в которых есть цифра 5.
Удалить из него все элементы, в которых есть цифра 5.
More Questions From This User See All
Answers & Comments
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.