в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных элементов.

@xu4er · Регистрация: 22.11.2010

в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных элементов..

спасибо

@pryda · 22.11.2010, 23:03

Pascal

s:=0; sa:=0; k:=0;
for i:=1 to 10 do
if a[i] mod 3=0 then s:=s+a[i]
else
begin
   inc(k);
   sa:=sa+a[i];
end;
sa:=round(sa/k);
writeln('Среднее арифметическое: ',sa,' Сумма: ',s);

@xu4er 0 / 0 / 0 Регистрация: 22.11.2010 Сообщений: 12
		1
	в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных элементов. 22.11.2010, 23:00. Показов 1438. Ответов 1 Метки нет (Все метки) в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных элементов.. спасибо 0

Опции темы

в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных элементов.

Решение