Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.

Question

Информатика

Митяша

24 декабря, 20:22

Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.

+4

Ответы (1)

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

Данило · Answer 1

Program pr;

var

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

i: integer;

begin

for i: = 1 to 5 do

read (a[i]) ;

for i: = 1 to 5 do

write (a[i]:5) ;

writeln;

for i:=1 to 5 do

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

for i: = 1 to 5 do

write (a[i]:5) ;

end.