Дан одновременный одночисленный масив вывести масив на экран строку элементы стоящие на четных местах заменить нулем вывести образованный массива на экран строку пример:

ввод: 5; 5,1,2,3,4

вывод: 5,0,2,0,4

Question

Информатика

Анюта

18 ноября, 15:58

Дан одновременный одночисленный масив вывести масив на экран строку элементы стоящие на четных местах заменить нулем вывести образованный массива на экран строку пример:

ввод: 5; 5,1,2,3,4

вывод: 5,0,2,0,4

+2

Ответы (1)

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

Декабрин · Answer 1

Program chik;

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

var n, i:integer;

begin

read (n) ;

for i:=1 to n do

begin

read (a[i]) ;

end;

for i:=1 to n do

begin

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

end;

for i:=1 to n do

begin

write (a[i],' ') ;

end;

end.