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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!