Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
нужна помощь
Очень нужна ваша помощь.
Необходимо написать программу в паскале. С использованием FOR.
"С клавиатуры запрашивается 10 любых чисел. Найти: кол-во вещественных, сумму четных и среднее арифметическое."
Буду неимоверно благодарна.


111
1 | Автор: krokoko | 2011-12-19, 20:25   |  Репутация: [ + 0 ]
var
k,sr,i,sc:integer;
a:real;
begin
k:=0;sr:=0;sc:=0;
for i:=1 to 10 do begin
read(a);
if frac(a)<>0 then k:=k+1;
if a>0 then sc:=sc+1;
sr:=sr+a;
end;
writeln(k);
writeln(sc);
writeln(round(sr/10));
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-12-24, 15:53 | Изменено: Berestovskiy - Сб, 2011-12-24, 15:53   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: