Question

Помогите написать в Паскале.
Задан массив значений аргумента Х=(1.2;1.8;-4;-1.5;-0.6;0.2;0.5;14;26;-8.4). Определить количество четных чисел в массиве Х и их среднее арифметическое значение .
Х-вводим с клавиатуры.

Answer 1

uses Crt;
const n=10;
Type Mas=array [1..n] of real;
var  X: Mas;
     i, Col: integer;
     Sum, Sred: real;
begin
ClrScr;
for i:=1 to n do
   begin
      Write (' X[',i,'] ='); ReadLn(X[i]);
      if  frac (X[i])=0 and (X[i]  mod 2 =0)  then
      begin
            Col:=Col+1;
            Sum:=Sum+X[i];
      end;
    end;
    WriteLn;
    Sred:=Sum/Col;
   WriteLn (' Количество четных = ', Col);
   Writeln (' Их среднее число = ', Sred:6:3);
ReadLn;
end.