Как удалить из одномерного массива одноразрядные элементы?
задали задание по информатике, битый час ломаю голову. звучит задание так "напишите программу обработки одномерного массива, сформированного из случайных чисел, "выкинув" из него все одноразрядные элементы (т.е. новый массив содержит только двузначные числа)". весь массив готов, не выходит только удаление. как написать такую программу?
program hir;
var A:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do A[i]:=randome(99);
for i:=1 to 10 do write (A[i],' ');
end.
Ответы (1 шт):
Автор решения: MBo
→ Ссылка
Randomize;
for i:=1 to 10 do
A[i]:= random(100);
for i:=1 to 10 do
write (A[i],' ');
cnt := 0; {счётчик мелких}
for i:=1 to 10 do
if A[i] < 10 then
Inc(cnt)
else
A[i - cnt] := A[i];
for i:=1 to 10 - cnt do {выведем нужную часть массива}
write (A[i],' ');