Пожалуйста помогите!!!) Удалить из массива все двузначные числа. Элементы, удаляемые из массива поместить во второй массив.
Пожалуйста помогите!!!)
Удалить из массива все двузначные числа. Элементы, удаляемые из массива поместить во второй массив.
Гость
Ответ(ы) на вопрос:
Гостьprogram chisl;
var i,j:integer;
mass1:array[1..5] of integer;
mass2:array[1..5] of integer;
begin
j:=0;
for i:=1 to 5 do begin
read(mass1[i]);
if mass1[i]>=10 then begin
j:=j+1;
mass2[j]:=mass1[i];
end;
end;
for j:=1 to j do
write(mass2[j]:3);
end.
Не нашли ответ?
Похожие вопросы