Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 8
1

найти произведение положительных елементов масива

04.12.2012, 17:10. Просмотров 960. Ответов 1
Метки нет (Все метки)

найти произведение положительных елементов масива v(15) и количество всех отрицательных елементов
сделайте пожалуйста
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2012, 17:10
Ответы с готовыми решениями:

найти срернее арифметическое отрицательных и сумму положительных елементов массивов
У меня есть такое вот задание: нужно найти срернее арифметическое отрицательных и сумму...

определить сумму елементов масива целых чисел
кто может,помогите пожалуйста))) написать программу : обработка однородных масивов определить...

Найти произведение положительных членов
Здравствуйте форумчани! вот такая вот задача у меня: нужна программа для нахождения произведения...

найти произведение положительных элементов;
В одномерном массиве, состоящем из n вещественных элементов вычислить: 1. произведение...

1
3 / 3 / 1
Регистрация: 25.06.2012
Сообщений: 13
04.12.2012, 18:54 2
Лучший ответ Сообщение было отмечено олег ва как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program HelloWorld;
var
  a: array [1..15] of integer;
  i, multip, count : integer;
begin
  multip := 1;
  count := 0;
  Randomize;
  for i:= 1 to 15 do
   begin
     a[i]:=random(10)-5;
     Write(a[i], '  ');
    if a[i]>0 then
      multip := multip * a[i]
        else
         if a[i]<0 then
          count:= count + 1;
   end;
  Writeln;
  Writeln('multiplication all positive ', multip);
  Writeln('Count of negative ', count);
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2012, 18:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти произведение положительных чисел
С клавиатуры вводятся 10 чисел. Найти произведение положительных чисел не делящихся на 3.

Найти произведение положительных и отрицательных
Пожалуйста помогите,найдите ошибку.Заранее спасибо! Задача: Дано N действительных чисел.Найти...

Произведение всех отрицательных елементов главной диагонали
Помогите кто может на завтра нужно в визуал бейсике задачу зделать!!!!!! в квадратной матрице...

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


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

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

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