Процедура

[giv93]

Написать программу, которая в одномерном массиве вычисляет:
а) сколько ненулевых элементов;
б) среднее отрицательных элементов. (Процедуры)

[Arigato]

Простецкие задачки. Позор такие не решить.

[Leshii]

Program p;
Uses crt;
var a:array [1..10] of integer;
    i:integer;
Procedure Nenul ;
var i: integer;
    k: integer;
begin
 k:=0;
 for i:=1 to 10 do begin
  if a[i]<>0 then k:=k+1;
 end;
 writeln('Vsego ',k,' ne nylevux elementov');
end;

Procedure sred ;
var i: integer;
    q, r: real;
begin
q:=0;
r:=0;
 for i:=1 to 10 do begin
  if a[i]<0 then begin
     q:=q+a[i];
     r:=r+1;
 if r=0 then writeln('no negative elements') 
 else writeln('average of negative elements is ', q/r:5:2);
  end;
 end;
writeln('Ser. :=',sred:0:2);
end;

begin
clrscr;
for i:=1 to 10 do begin
    write('A[',i,']:=');
    readln(a[i]);
end;
Nenul;
sred;
writeln('Isxodnui massiv');
for i:=1 to 10 do begin
    write(a[i],' ');
end;
readln;
end.

[TinMan]

Леший, совет небольшой тебе: при r=0 не дели на него, а выводи сообщение

if r=0 then writeln('no negative elements') else writeln('average of negative elements is ', q/r:5:2);

И еще: формат ":3:2" вряд ли разумно применять.. ))

[Arigato]

Сообщение от TinMan

И еще: формат ":3:2" вряд ли разумно применять.. ))

Разумно в данном случае ":0:2".

[Leshii]

Точно, точно. Исправил.