Предмет: Информатика,
автор: hen4
Пожалуйста помогите!!!)
Удалить из массива все двузначные числа. Элементы, удаляемые из массива поместить во второй массив.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
сорян чтоль
Автор ответа:
0
Если так записать
Похожие вопросы
Предмет: Алгебра,
автор: fntdxmoonvvb
Предмет: Русский язык,
автор: elenachug202079
Предмет: Русский язык,
автор: division58
Предмет: Алгебра,
автор: katushka61469
Предмет: Математика,
автор: marinovaiuliia