В данном массиве чисел найдите среднее арифметическое положительных элементов массива.
Составить программу для Pascal ABC

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

program AveragePositiveElements;

var
arr: array [1..10] of integer;
i, count, sum: integer;
average: real;

begin
count := 0;
sum := 0;

writeln('Enter 10 numbers:');
for i := 1 to 10 do
begin
readln(arr[i]);
if arr[i] > 0 then
begin
sum := sum + arr[i];
count := count + 1;
end;
end;

if count > 0 then
begin
average := sum / count;
writeln('Average of positive elements: ', average:0:2);
end
else
begin
writeln('No positive elements in the array');
end;

end.