Арифметическая задача

Дата: Суббота, 10.01.2009, 21:30 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 1

Репутация: 0

Замечания: 0%

Статус: Offline

Дано N чисел. Найти среднеарифметическое отрицательных чисел

Дата: Суббота, 10.01.2009, 23:49 | Сообщение # 2

Старый знакомый

Группа: Пользователи

Сообщений: 25

Репутация: 0

Замечания: 0%

Статус: Offline

Code

for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<0 then
begin
k:=k+1;
l:=l+a[i];
end;
m:=l/k;
write(m);
end.

:shubizsetisforuma:

Дата: Понедельник, 23.02.2009, 14:42 | Сообщение # 3

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

И ни ответа ни привета... ) Ладно, подождем еще немного, потом закроем.

		Пятница, 24.01.2025
	Pascal 4 All