Помогите написать в Паскале. Задан массив значений аргумента Х=(1.2;1.8;-4;-1.5;-0.6;0.2;0.5;14;26;-8.4). Определить количество четных чисел в массиве Х и их среднее арифметическое значение . Х-вводим с клавиатуры.
Помогите написать в Паскале.
Задан массив значений аргумента Х=(1.2;1.8;-4;-1.5;-0.6;0.2;0.5;14;26;-8.4). Определить количество четных чисел в массиве Х и их среднее арифметическое значение .
Х-вводим с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы