Задачи на массив (паскаль): Массив (подсчёт суммы) а) Дан массив целых чисел. Найти сумму нечётных элементов. б) Дан массив. Определить максимальный и минимальный элемент.

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

а) Пример кода на Паскале для подсчёта суммы нечётных элементов в массиве:

program SumOfOddElements
va
arr: array[1..10] of Integer
i, sum: Integer
begi
sum := 0
// заполнение массив
for i := 1 to 10 d
begi
arr[i] := Random(10)
writeln('arr[', i, '] = ', arr[i])
if arr[i] mod 2 <> 0 the
sum := sum + arr[i]
end
writeln('Сумма нечётных элементов массива: ', sum)
end.

б) Пример кода на Паскале для определения максимального и минимального элементов в массиве:

program MaxMinElement
va
arr: array[1..10] of Integer
i, max, min: Integer
begi
// заполнение массив
for i := 1 to 10 d
begi
arr[i] := Random(10)
writeln('arr[', i, '] = ', arr[i])
end
max := arr[1]
min := arr[1]
for i := 2 to 10 d
begi
if arr[i] > max the
max := arr[i]
if arr[i] < min the
min := arr[i]
end
writeln('Максимальный элемент массива: ', max)
writeln('Минимальный элемент массива: ', min)
end.