Вопрос по информатике:
Ввести одномерный массив A из 15 элементов. Определить в нём среднее геометрическое модулей отрицательных элементов
- 24.05.2018 22:48
- Информатика
- remove_red_eye 19502
- thumb_up 36
Ответы и объяснения 1
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]<0 then begin
C:=C+1; P:=P*abs(A[i]);
end;
write('среднее геометрическое модулей отрицательных чисел =', P/C);
end.
- 25.05.2018 11:00
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.