Дан целочисленный массив размера N. Удалить из массива все элементы с четными номерами.

Когда из массива "удаляются элементы", то его размер, очевидно, меньше не становится. Просто появляются неиспользуемые ячейки. В таких случаях на экран надо выводить только ту часть массива, в которой остались "неудаленные" элементы.

На Паскале

Question

Информатика

Ларуня

5 марта, 16:02

Дан целочисленный массив размера N. Удалить из массива все элементы с четными номерами.

Когда из массива "удаляются элементы", то его размер, очевидно, меньше не становится. Просто появляются неиспользуемые ячейки. В таких случаях на экран надо выводить только ту часть массива, в которой остались "неудаленные" элементы.

На Паскале

+2

Ответы (1)

Знаете ответ на вопрос?

Миланка · Answer 1

Var

a: array [1 ... 1000] of integer;

i, j, n, k:integer;

begin

write ('количество чисел') ;

read (n) ;

for i:=1 to n do begin

read (a[i]) ;

end;

for i:=1 to n do begin

if (a[i] mod 2) = 0 then

a[i]:=0;

end;

for i: = 1 to n do

if (a[i]>0) then

writeln (a[i]) ;

end.