Дан массив из 10 целых чисел найти произведение элементов массива с четными индексами
196
485
Ответы на вопрос:
Var a: array[1..10] of integer; sum,i: integer; begin for i: =1 to 10 do begin readln(a[i]); if i mod 2 = 0 then sum: =sum+a[i]; end; writeln(sum); end. надеюсь на "лучший ответ"
Популярно: Информатика
-
натахасуслик19.03.2023 01:08
-
Noiceee07.11.2020 02:44
-
katekurmakaeva12.05.2020 01:52
-
яся7206.03.2022 16:59
-
moldabaevamaria14.09.2022 13:25
-
Nadia282903.12.2021 10:28
-
MaxPlayTheme02.12.2020 01:22
-
lolikontu20.05.2023 12:50
-
маша304716.03.2021 02:56
-
228апимпрорпрмирир25.07.2022 07:36