ТутРешу.Ру

Дан массив из 10 целых чисел найти произведение элементов массива…

Задание:

Дан массив из 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. Надеюсь на «Лучший ответ"




Знаете другой ответ?

Отправить свой ответ