Блок-схема. program Odnomer_massiv;

Текст программы:

program Odnomer_massiv;

{$APPTYPE CONSOLE}

uses

SysUtils;

const

Nmax=20;

var

i,N,k:integer;

S,sr:real;

a: array [1.. Nmax] of real;

begin

writeln('vvedite kolichestvo elementov massiva');

readln(N);

for i:=1 to N do

begin

writeln('Vvedite ',i,' element massiva');

readln(a[i]);

end;

S:=0;

k:=0;

for i:=1 to N do

begin

if a[i]>0

then

begin

inc(k);

S:=S+a[i];

end;

end;

if k>0 then

begin

sr:=S/k;

writeln('Srednee arifmeticeskoe vseh polojitel`nih elementov massiva= ',sr:0:3)

end

else writeln(‘Net polojitel`nih elemenrov’);

readln;

end.