--- PascalABC.NET 3.6.2 ---
begin
ReadSeqIntegerWhile(p -> p <> 0).Where(p -> p > 0).Average.Println;
end.
Я всё вижу по глазам
Что ты хочешь мне сказать
(На-на-на-на, а-а-а)
Я не буду тебя знать, а ты меня
(Ты меня, ты меня, ты меня, ты меня)
И мы друг друга (Ты меня)
Под ногами лёд, и в сердце лёд
В стакане лёд, я не помню кто я
Душит мороз, я такой холодный
Я такой холодный!
Я читаю по губам
Мне нечего сказать
(На-на-на-на, а-а-а)
Я не вижу смысла врать (а-а)
Мне хватит слов, что я сказал
(Не вижу смысла врать)
В 7:30 утра автобус врезался в автомобиль марки Suzuki
И какое-то время, буквально тащил его, по ходу движения
Как подтвердили в ГИБДД
Одиннадцатилетняя девочка — пассажирка Suzuki погибла в огне
Где находилась её мама, которая пыталась ребенка
Что же случилось — ещё предстоит выяснить
Следователи сейчас проводят проверку
#Сюда пишем массив
Massive = [1, -3, 10, 222, -30, -10]
#Переменная для опредиления суммы отрицательных эллементов массива
Sum = 0
#Переменная для опредиления кол-ва отрицательных эллементов массива
Count = 0
#Переменная для подсчета среднего арифметического
Avg = 0
#Цыкл, в ходе которого мы находим сумму и кол-во отрицательных эллементов массива
for elements in Massive:
if elements < 0:
Sum = elements + Sum
Count = Count + 1
#Подсчет и округление среднего арефметического
if Count > 0:
Avg = int(Sum / Count)
#Вывод среднего арефметического
print(Avg)
//Pascal
var a,i,s,n:integer;
begin
s:=0;
n:=0;
repeat
readln(a);
if a>0 then begin
n:=n+1;
s:=s+a;
end;
until a = 0;
writeln('Сумма ',s:5,' Среднее арифметическое ',s/n);
end.
ТАК) (Я НЕСОВСЕМ УВЕРЕН)