Информатика, опубликовано 2018-08-22 21:43:50 by Гость
Ввести одномерный массив A из 15 элементов. Определить в нём среднее геометрическое модулей отрицательных элементов
Ответ оставил Гость
Var
A:array[1..15] of integer;
i,P,C: integer;
begin
for I:=1 to 15 do begin
write (i,введите элемент массива: );
readln(A[i]);
end;
P:=1; C:=0;
for I:=1 to 15 do
if A[i] C:=C+1; P:=P*abs(A[i]);
end;
write(среднее геометрическое модулей отрицательных чисел =, P/C);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на