Ввести одномерный массив из n элементов вещественного типа. Вычислить среднее арифметическое значение элементов, не имеющих дробной части.
Ввести одномерный массив из n элементов вещественного типа. Вычислить среднее арифметическое значение элементов, не имеющих дробной части.
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
if a[i] = int(a[i]) then
begin
k:=k+a[i];
inc(m);
end;
//находим среднее арифметическое
s := k/m;
writeln(s);
end.
Гость// PascalABC.NET 3.0, сборка 1128
begin
var n:=ReadInteger('Количество элементов в массиве:');
var a:=ReadArrReal('Введите элементы массива:',n);
var x:=a.Where(x->Frac(x)=0).Average;
Writeln('Среднее арифметическое целых элементов ',x:0:3)
end.
Тестовое решение:
Количество элементов в массиве: 7
Введите элементы массива: 1.3 -2.18 6.0 -3 10.2 11.7 -1.12
Среднее арифметическое целых элементов 1.500
Не нашли ответ?
Похожие вопросы