0 / 0 / 0
Регистрация: 17.09.2012
Сообщений: 5
1

Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p

17.09.2012, 19:19. Показов 8331. Ответов 1
Метки нет (Все метки)

Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.09.2012, 19:19
Ответы с готовыми решениями:

Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р.
Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р....

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

Найти произведение положительных элементов данного массива, кратных заданному числу K
Дан массив размерностью 25.Найти произведение положительных элементов данного массива,кратных...

Определить произведение элементов массива, кратных заданному числу p
дан массив из н элементов ( натур числа). Определите произведение элементов, кратных заданному...

1
59 / 58 / 39
Регистрация: 16.03.2012
Сообщений: 165
17.09.2012, 20:32 2
Лучший ответ Сообщение было отмечено Aigerimss как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program a12;
uses
crt;
var
  a:array[1..100]of integer;
  i,n,p, s: byte;
begin
  clrscr;
  writeln ('Дан массив A(i),состоящий из целых чисел.Получить произведение элементов массива, кратных p ');
  randomize;
  writeln('Введите количество элементов массива');
  readln(n);
  for i:=1 to n do
    begin
      writeln('Введите масств',i);
      readln(a[i]);
    end;
  writeln('Введите кратное число');
  readln(p);
  s:=1;
  for i:=1 to n do
    begin
      if a[i] mod p=0 then
        s:=s*a[i];
    end;
  writeln('s=',s);
readkey;
end.
Данная задача уже раньше решалась на данном форуме.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.09.2012, 20:32
Помогаю со студенческими работами здесь

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу
Всем доброго времени суток! Задание: Дан массив из N элементов (натуральные числа). Определить...

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу Р
Задание: Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных...

Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k
Вывести все в stringgrid1. Можно пожалуйста с объяснениями.

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru