Question

решите задачу в паскале программа джини
найдите полупроизведение всех положительных элементов массива

Answer 1

Может быть это? pascal: 
var a: array [1..20] of integer; 
i, k: integer; 
s: real; 
begin 
// заполняем массив c клавиатуры 
for i:=1 to 20 do 
readln(ar); 
//считаем среднеариф-е 
s := 0; 
k := 0; 
for i:=1 to 20 do 
if a >=0 then begin 
s := s + a; 
k := k + 1; 
end; 
writeln('среднее: ', s/k); 
end.

Answer 2

это не правильно