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

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

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

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

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

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

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

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4013 / 2945 / 3688
Регистрация: 05.06.2014
Сообщений: 14,598
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

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

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

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


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

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

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