Паскаль для решения следующей задачи: заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами в диапазоне от 20 до 40 и найти сумму лишь НЕЧЁТНЫХ номеров (элементов) массива.

Предыдущий
вопрос Следующий
вопрос

program ArraySumOddElements
va
arr: array[1..20] of integer
i, sum: integer
begi
sum := 0
Randomize
// Заполняем массив случайными числами от 20 до 4
for i := 1 to 20 d
begi
arr[i] := Random(21) + 20
writeln('Element ', i, ': ', arr[i])
end
// Находим сумму нечетных элементов массив
for i := 1 to 20 d
begi
if arr[i] mod 2 <> 0 the
sum := sum + arr[i]
end
writeln('Sum of odd elements: ', sum)
end.