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

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

Может быть это? 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.