Ответьте в кумире или Паскале
1. Найти среднее арифметическое значений всех элементов массива, состоящего их случайных положительных чисел.
2. В массиве из 15-ти целых случайных чисел из диапазона [-30;70] найти минимальный положительный элемент.
3. В массиве из 10-ти двузначных случайных чисел найти сумму нечетных.

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

program Average;
var
arr: array [1..10] of integer;
i, sum, average: real;
begin
sum := 0;
for i := 1 to 10 do
begin
arr[i] := random(100); // случайное число от 0 до 99
sum := sum + arr[i];
end;
average := sum / 10;
writeln('Среднее арифметическое значений всех элементов массива: ', average:0:2);
end.

program MinPositiveElement;
var
arr: array [1..15] of integer;
i, minPositive: integer;
begin
minPositive := 71; // максимальное значение в диапазоне [-30;70]
randomize;
for i := 1 to 15 do
begin
arr[i] := random(101) - 30; // случайное число от -30 до 70
if (arr[i] > 0) and (arr[i] < minPositive) then
minPositive := arr[i];
end;
writeln('Минимальный положительный элемент: ', minPositive);
end.

program SumOddNumbers;
var
arr: array [1..10] of integer;
i, sumOdd: integer;
begin
sumOdd := 0;
randomize;
for i := 1 to 10 do
begin
arr[i] := random(90) + 10; // двузначное число
if arr[i] mod 2 <> 0 then
sumOdd := sumOdd + arr[i];
end;
writeln('Сумма нечетных чисел в массиве: ', sumOdd);
end.