Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ivanovamariana
0 / 0 / 0
Регистрация: 03.10.2013
Сообщений: 4
1

Посчитать произведение элементов, которые больше 6

03.10.2013, 11:08. Просмотров 962. Ответов 1
Метки нет (Все метки)

Здравствуйте уважаемые модераторы! помогите, пожалуйста, написать 2 программы:
1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать произведение элементов, которые больше 6. Результаты вывести на экран.

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

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2013, 11:08
Ответы с готовыми решениями:

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

Сгенерировать и вывести массив. Найти произведение элементов массива, которые больше введенного M
Сгенерировать и вывести массив. Найти произведение элементов массива, которые...

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

Посчитать произведение отрицательных элементов массива
задать одномерный массив с помошью RND из 10 элементов. Посчитать произведение...

Посчитать произведение всех ненулевых элементов матрицы
посчитать произведение всех ненулевых элементов массива Т

1
Cyborg Drone
Модератор
5464 / 3275 / 2479
Регистрация: 17.08.2012
Сообщений: 10,502
04.10.2013, 03:47 2
Лучший ответ Сообщение было отмечено ivanovamariana как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program prod;
 
var i, n, p: integer;
    m: array [1..100] of integer;
 
begin
  repeat
    write('n = ');
    readln(n)
  until (n > 1) and (n <= 100);
  p := 1;
  for i := 1 to n do
    begin
      write('m[', i:3, '] = ');
      readln(m[i]);
      if m[i] > 6 then p := p * m[i]
    end;
  writeln('Product of elements > 6: ', p);
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2013, 03:47

Посчитать сумму элементов вектора, которые оканчиваются на цифру 1
Помогите пожалуйста решить. Буду очень, очень благодарна. Спасибо заранее !!!...

Найти произведение элементов массива, которые больше значения D1
Есть 3 одномерных материальных массива A, B и С. Сделать процедуру ввода...

Заменить в массиве все значения элементов, которые больше 50, на соответствующее произведение их индексов
Здравствуйте, Нужно написать программу формирования двумерного массива...


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

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

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