Информатика написать программу на паскале Сгенерируйте целочисленный массив из 20 элементов случайным образом в диапозоне от -15 до 15.
Посчитайте сумму элементов которые больше 9;
Посчитайте сумму четных элементов

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

program arraySum;

var
arr: array[1..20] of integer;
i, sumMoreThan9, sumEven: integer;

begin
sumMoreThan9 := 0;
sumEven := 0;

// Генерируем случайные числа от -15 до 15 и заполняем массив
Randomize;
for i := 1 to 20 do
begin
arr[i] := Random(31) - 15; // Генерируем числа от -15 до 15
writeln(i, ': ', arr[i]);

// Считаем сумму элементов больше 9
if arr[i] > 9 then
sumMoreThan9 := sumMoreThan9 + arr[i];
// Считаем сумму четных элементов
if arr[i] mod 2 = 0 then
sumEven := sumEven + arr[i];

end;

writeln('Сумма элементов больше 9: ', sumMoreThan9);
writeln('Сумма четных элементов: ', sumEven);
end.