Ответы на вопрос:
Var a: array [1..200] of integer; i, j, q, a1: integer; begin writeln('kakoi dlini massiv? '); readln(q); for i: =1 to q doreadln(a[i]); a1: =a[1]; j: =1; while j< =q do beginj: =j+3; a1: =a1*a[j]; end; writeln(a1); end.
Популярно: Информатика
-
ekkaterrinna200302.06.2022 16:33
-
bgf6210.04.2022 15:16
-
диас16121.07.2021 03:58
-
ДмитрийРазумный06.05.2021 01:43
-
girrrrl22.11.2022 03:08
-
1234567da08.01.2021 00:07
-
алгебра17106.02.2020 17:32
-
lampusha07.05.2021 06:51
-
nlikachev08.07.2022 05:41
-
Zahar447210.09.2022 04:25