Предмет: Информатика,
автор: supervoron
Паскаль
Вывести значение каждого третьего элемента последовательности, начиная с первого.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Геометрия,
автор: anastasiarylskaa00
Предмет: Информатика,
автор: misiura7
Предмет: Қазақ тiлi,
автор: omarovagulim66
Предмет: Математика,
автор: Anastasiya479
Предмет: Математика,
автор: cjhjrf1212