mitya

Дан фаил целых чисел . Определить среднее арифметическое отрицатеьных чисел ???

Urian

program AOfNN;
var F : Text;
Num,Sum, Average : real;
k : integer;

beginSum := 0;
k := 0;
assign(F,'File.in');
reset(F);

while not eof(F) do
begin read(F, Num);
if Num < 0 then
begin Sum := Sum + Num;
Inc(k);
end;
end;
close(F);
Average := Sum / k;
writeln(Average);

end.

Здесь File.in - твой файл, в котором числа находятся