Очень нужна ваша помощь

[Mars.]

Очень нужна ваша помощь

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

 

[Taper]

.......Буду неимоверно благодарна.

Буду неимоверно благодарна в пределах моих возможностей.

 

[AlexZir]

Гы-гы, а чем именно благодарить собираетесь?

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.

Небольшое пояснение. За четное число, согласно его определению в математике, я принял целочисленное число, кратное числу 2. Так как операции определения остатка от деления доступны только над целыми числами, анализируемое целое число было предварительно приведено к требуемому формату путем применения операции округления.

Проверил во FreePascal и PascalABC.Net, работает без проблем. С вас причитается )