Информатика, опубликовано 2018-08-22 23:17:28 by Гость
Из массива C получить массив K, удалив из массива C все нулевые элементы
Ответ оставил Гость
Var ar:array[1..10] of integer;
ar2:array[1..10] of integer;
i,k:integer;
begin;
randomize;
writeln(First array:);
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if ar[i]0 then
begin;
inc(k);
ar2[k]:=ar[i];
end;
end;
writeln;
writeln(Final array:);
for i:=1 to k do
write(ar2[i]:4);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на