задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности.
Написать программу в Pascal.
Написать программу в Pascal.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
end.