Паскаль

Вывести значение каждого третьего элемента последовательности, начиная с первого.

Question

Информатика

Марьина

28 октября, 02:43

Паскаль

Вывести значение каждого третьего элемента последовательности, начиная с первого.

+1

Ответы (1)

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

Филомена · Answer 1

Var i, a, y:integer;

mass:array[1 ... 200] of integer;

begin

writeln ('Введите кол-во элементов массива') ;

read (a) ;

y:=3; for i:=1 to a do

read (mass[i]) ;

for i:=1 to a do

if i=y then begin

y:=y+3;

write (mass[i]:5) ;

end;

end.

ПаскальВывести значение каждого третьего элемента последовательности, начиная с первого.

Паскаль

Вывести значение каждого третьего элемента последовательности, начиная с первого.