Информатика.Задача по обработке массивов в Pascal.

Question

Задание таково: Составить программу вычисления среднего аримфитического положительных элементов и количества отрицательных элементов массива А. 
Проверить работу программы на заданном массиве. 
А{11} 
А{5,-2.4,0.4,-5.5,2,7.1,4,-10,21,-0.5,-4}

Арсен, спасибо!

Светлана Дрогалина · Accepted Answer

program prj1; 
const A: array[1..11] of real = {5, -2.4, 0.4, -5.5, 2, 7.1, 4, -10, 21, -0.5, -4}; 
var k, i: integer; 
 s: real; 
begin 
 s:=0; k:=0; 
 for i:=1 to 11do 
 if A[ i ] > 0 then begin 
 s:=s + A[ i ]; 
 Inc(k); 
 end; 
 writeln('Среднее аримфитическое:', s / k); 
 writeln('Количества отрицательных элементов:', 11 - k); 
 readln; 
end.