Задание:
Дан массив из 10 целых чисел найти произведение элементов массива с четнымииндексами
Решение:
Vara: array[1… 10] of integer; sum,i: integer; beginfor i: =1 to 10 do begin readln (a[i]); if i mod 2=0 then sum: =sum+a[i]; end; writeln (sum); end. Надеюсь на «Лучший ответ"
Знаете другой ответ?