Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3884 / 2865 / 3640
Регистрация: 05.06.2014
Сообщений: 14,093
26.04.2015, 19:58 0

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

26.04.2015, 19:58. Просмотров 1036. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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)Найти произведение ненулевых элементов из каждой строки массива А. Определить...

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

0
Другие темы раздела
Turbo Pascal Вычислить значение функции http://www.cyberforum.ru/turbo-pascal/thread1431040.html
Вывести 3 таблицы значений заданной функции в виде: Таблица 1 Параметр=... У=... Х=... Таблица 2 Параметр=... У=... Х=... Таблица 3 Параметр=... У=... Х=... Расчеты на основании следующих...
Turbo Pascal Найти сумму чисел Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для созданной программы не менее трёх тестов и... http://www.cyberforum.ru/turbo-pascal/thread1431039.html
Turbo Pascal Подсчет элементов последовательности до первого встретившегося нуля
Доброго всем времени суток! Пожалуйста, помогите решить задачу на тему "Циклические вычислительные процессы"! Дана последовательность y=sin(x)-cos(x) , x = 0, 0.1, 0.2, … Напишите программу...
Turbo Pascal Программа для вычисления значения функции f (x) ее разложением в ряд Макларена: прокомментировать код
{Программа для вычисления значения функции f(x) ее разложением в ряд Макларена} объясните что да как здесь работает,что означают различные function,result и т.д. program TGorner; const n=100; ...
Turbo Pascal Есть ли функции или процедуры для работы с мышкой в турбо паскале http://www.cyberforum.ru/turbo-pascal/thread1430356.html
Всем привет. Как можно вызвать курсор после компиляции в паскале? Есть ли функции или процедуры для работы с мышкой в турбо паскале? Не по координатам.
Turbo Pascal В матрице А[5x3] найти минимальный и максимальный элементы В матрице А найти минимальный и максимальный элементы, вычислить P=(Amin+Amax) и сформировать новую матрицу, в которой к элементам всех строк, кроме 4й прибавлено P. 4я строка без изменений. ... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru