Масиви, pascal

[Ucheniza]

Найти среднее арифметическое положительных элементов массива

[Alex794]

N:=0;
S:=0;
for i:=1 to Size do
  if M>0 then
    begin
      Inc(N);
      S:=S+A[i]
    end
WriteLn(S/N);

[Serge_Bliznykov]

Alex794, нет.
во-первых, что это за if M>0 ?!
там должно быть if A[i]>0 then

во-вторых,
перед выводом нужно добавить проверку, что N <> 0
(если положительных в массиве нет). Иначе будет вылет с ошибкой деления на ноль.

[Alex794]

Прально! Писал не думая - первая по пьяни, вторая по недомыслию.

[newerow1989]

А моя трезвая голова вот что написала:

var p:array[1..10] of integer;
    i,n:integer;
    sr:real;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   sr:=0;
   n:=0;
   For i:=1 to 10 do
      If p[i]>0 then
      begin
         sr:=sr+p[i];
         n:=n+1;
      end;
   If n>0 then
   begin
      sr:=sr/n;
      Writeln('srednee = ',sr:3:3);
   end else
      Writeln('no!');
   Readln;
end.