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

Question

Информатика

Олюша

20 февраля, 02:46

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

+3

Ответы (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.