Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Goryn
0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 21
#1

Найти произведение ненулевых элементов массива и разделить его на количество элементов массива - Turbo Pascal

26.04.2015, 14:10. Просмотров 518. Ответов 1
Метки нет (Все метки)

Задание 1. Найдите произведение ненулевых элементов массива и разделите это произведение на количество элементов массива.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2015, 14:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение ненулевых элементов массива и разделить его на количество элементов массива (Turbo Pascal):

Найти произведение ненулевых элементов двухмерного числового массива и определить его знак
Найти произведение ненулевых элементов двухмерного числового массива Х и ...

Найти сумму отрицательных, количество положительных и произведение ненулевых элементов одномерного массива
Помогите пожалуйста решить задачу на одномерный массив. Одномерный массив...

Среди элементов нечетных строк массива найти произведение ненулевых элементов
Дан массив X(N,M). Среди элементов нечетных строк массива найти произведение...

Найти произведение ненулевых элементов массива
В массиве Х(N) найти произведение ненулевых элементов, а также количество...

Найти произведение положительных индексов массива и количество его отрицательных элементов
Дан массив А(10). Найти произведение положительных индексов массива и...

Найти произведение ненулевых элементов каждого столбца массива
3)Заполнить двумерный числовой массив В целыми числами. Найти произведение...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2844 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
26.04.2015, 19:58 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a:array[1..100] of integer;
  i,j,m,n:integer;
  p:real;
Begin
  m:=1;
  write('Введите размерность массива: ');  readln(n);
  For i:=1 to n do
    begin
      a[i]:=random(n) - n div 2;
      if a[i]<>0 then
        m:=m*a[i];
    end;
  p:=m/n;
  writeln('Результат',p:8:2);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2015, 19:58
Привет! Вот еще темы с решениями:

Найти произведение ненулевых элементов из каждой строки массива А.
1)Найти произведение ненулевых элементов из каждой строки массива А. Определить...

Найти произведение ненулевых элементов данного одномерного числового массива
Найти произведение ненулевых элементов данного одномерного числового массива.

Подпрограммы: найти количество нулевых и количество ненулевых элементов массива
Найти величину n=ka1+ka2+kb1+kb2, где Ka1,ka2-количество нулевых и количество...

Найти произведение элементов массива, количество отрицательных элементов
1) Создать массив из 5-ти элементов - любых целочисленных констант. Вычислить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru