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