Очень нужна ваша помощь.
Необходимо написать программу в паскале. С использованием FOR.
"С клавиатуры запрашивается 10 любых чисел. Найти: кол-во вещественных, сумму четных и среднее арифметическое."
Буду неимоверно благодарна.
111
|
|
|
|
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 ]
|
|
|
|
