Сформировать массив из 15 случайных целых чисел из интервала (-20;10).Найти среднее...

Question

Сформировать массив из 15 случайных целых чисел из интервала (-20;10).Найти среднее арифметическое отрицательных чисел. Вывести исходный массив и результат.

Answer 1

Var
  a:array[1..15] of integer;
  i,c,n:integer;
  cr:real;

BEGIN
  for i:=1 to 15 do begin
    a[i]:=random(-20,10);
    if a[i] < 0 then begin
      c:=c+a[i]; n:=n+1;
    end;
    write(a[i]:4);
  end;
  writeln;
  cr:= c/n;
  write('Ответ: ',cr);
END.