Для решения данной задачи в Паскале необходимо создать массив А из 10 элементов и заполнить его случайными числами. Затем создать две переменные: sum для хранения суммы положительных элементов и count для хранения количества нечетных элементов.
Далее необходимо пройти по всем элементам массива А и для каждого элемента выполнить следующие действия:
- Проверить, является ли элемент положительным (больше нуля). Если да, то добавить его к сумме sum.
- Проверить, является ли элемент нечетным. Если да, то увеличить счетчик count на 1.
После прохождения всех элементов массива, вывести на экран сумму положительных элементов и количество нечетных элементов.
Пример кода на языке Паскаль:
program SumAndCount;
var
A: array[1.10] of integer;
sum, count, i: integer;
begin
sum := 0;
count := 0;
// Заполнение массива случайными числами
Randomize;
for i := 1 to 10 do
begin
A[i] := Random(21) - 10; // Генерация чисел от -10 до 10
end;
// Подсчет суммы положительных элементов и количества нечетных элементов
for i := 1 to 10 do
begin
if A[i] > 0 then
sum := sum + A[i];
if A[i] mod 2 0 then
count := count + 1;
end;
// Вывод результатов
writeln('Сумма положительных элементов массива: ', sum);
writeln('Количество нечетных элементов массива: ', count);
end.
После запуска программы вы увидите сумму положительных элементов и количество нечетных элементов в массиве A.