Ответы на вопрос:
Program sum; uses crt; var a: array [1..40] of integer; i,s: integer; {i - переменная цикла, s - сумма} begin clrscr; writeln ('введите элементы массива'); for i: =1 to 40 do read(a[i]); writeln; s: =0; for i: =1 to 40 do begin if (i mod 3=0) then s: =s+a[i]; end; writeln('s = ',s); readln; readkey; end.
Популярно: Информатика
-
Поворозник04.06.2021 00:45
-
sashabiryukova04.04.2022 01:46
-
vektor9931oz1kb322.07.2020 19:50
-
Лиззовета01.08.2020 09:13
-
DashaKim12311.10.2020 12:55
-
aluaaskarova10031.10.2021 00:17
-
gazizkadyrzhan27.02.2020 00:54
-
mskobetsnata27.05.2023 14:50
-
katwyn27.11.2020 02:37
-
алия25606.03.2021 02:37