19.12.2011, 21:43
|
#1 (permalink) |
|
Новичок
Регистрация: 19.12.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Очень нужна ваша помощь
Необходимо написать программу в паскале. С использованием FOR. "С клавиатуры запрашивается 10 любых чисел. Найти: кол-во вещественных, сумму четных и среднее арифметическое." Буду неимоверно благодарна. |
|
|
|
19.12.2011, 21:43
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Найдены схожие обсуждения, рекомендую ознакомиться Нужна помощь с ремонтом плеера Друзья, нужна ваша помощь Мощный преобразователь с 17 на 12 вольт, нужна ваша помощь Delphi. Нужна ваша помощь Нужна ваша помощь |
|
21.12.2011, 19:33
|
#3 (permalink) |
|
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Гы-гы, а чем именно благодарить собираетесь?
 Код:
const n=10;
var Mas: Array[1..10] of Real;
Vech, i: Integer;
Sum, Sred: Real;
begin
Sum:=0;
Vech:=0;
Sred:=0;
writeln('Введите ',n,' произвольных чисел');
for i:=1 to n do
begin
Readln(Mas[i]);
if Mas[i]<>trunc(Mas[i])
then inc(Vech)
else if trunc(Mas[i]) mod 2=0 then Sum:=Sum+Mas[i];
Sred:=Sred+Mas[i];
end;
Sred:=Sred/n;
Writeln('Вещественных чисел - ',Vech);
Writeln('Сумма четных чисел равна ',Sum);
Writeln('Среднее арифметическое чисел равно ',Sred);
Readln;
end.
Проверил во FreePascal и PascalABC.Net, работает без проблем. С вас причитается 
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
