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

Паскаль

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт