Одномерные массивы

[Takada_sony]

Помогите пожалуйста:
Дан массив размерностью [1..20]. Найти среднее арифметическое положительных чисел и количество отрицательных.
Нужно сделать для случайных чисел и для ввода с клавиатуры и как я поняла там нужно делать с "case".

[danekne]

pol:=0;
otr:=0;
spol:=0;
sotr:=0;
for i:=1 to n do
begin
flag:=false;
if a[i]>0 then flag:=true;
case flag of
1:
pol:=pol+a[i];
spol:=spol+1;
0:
otr:=otr+a[i];
sotr:=sotr+1;
end;
end;
srpol:=pol/spol;
srotr:=otr/sotr;

[Anatole]

danekne Коряво, ошибки в синтаксисе и не совсем по заданию.
если поправить, то где-то так:

pol:=0;
otr:=0;
spol:=0;
for i:=1 to n do
if a[i]>0 then 
 begin
 pol:=pol+a[i];
 spol:=spol+1;
 end else if a[1]<0 then otr:=otr+1;
srpol:=pol/spol;

[danekne]

Просили через case - сделал через case) Хотя как этоо сделано я бы назвал через другое место... Тоже из четырех буков

[Anatole]

Обратите внимание на фразу:

как я поняла там нужно делать с "case".

В условии задачи об case ничего не говорится. Тем более, у вас, этот оператор написан с ошибками. Попробуйте откомпилировать то, что вы написали

[danekne]

Был бы паскаль попробовал. А если человек не может найти синтаксические ошибки - пусть во фриланс идет. Я сделал, как просил человек)

[Takada_sony]

Спасибо огромное за помощь, только делфи выдает много ошибок... я делаю в консоле.
И на счет "case"... мне просто сказали, что алгоритм должен содержать данный оператор ветвления.
И почему он написан с ошибками?

[Stilet]

А так:

const n=5;

var i,otr,spol,pol:integer; srpol:double;
   a:array[1..n] of integer;
begin
  pol:=0;
otr:=0;
spol:=0;
for i:=1 to n do begin
a[i]:=random(-10);
if a[i]>0 then
 begin
 pol:=pol+a[i];
 spol:=spol+1;
 end else if a[1]<0 then otr:=otr+1;
end;
srpol:=pol/spol;
writeln(srpol);readln;
end.

А вот насчет CASE так тут я например не представляю..
впрочим

const n=5;

var i,otr,spol,pol:integer; srpol:double;
   a:array[1..n] of integer;
begin
  pol:=0;
otr:=0;
spol:=0;
for i:=1 to n do begin
a[i]:=5-random(10);
case a[i] of
 1..5:begin
  pol:=pol+a[i];
  spol:=spol+1;
 end;
 -5..0: otr:=otr+1;
 end;
end;
srpol:=pol/spol;
writeln(srpol);readln;
end.

[Takada_sony]

а можно чем-нибудь заменить otr,spol,pol, srpol?
просто мы их еще не проходили, могут возникнуть вопросы