Как найти произведение элементов массива кратных 5

Как найти произведение элементов массива кратных 5

0 / 0 / 0

Регистрация: 12.04.2010

Сообщений: 10

1

12.04.2010, 16:55. Показов 10821. Ответов 7

Студворк — интернет-сервис помощи студентам

Найти произведение элементов линейного массива целых чисел которые кратны 5.Размерность массива -10.Заполнение массива осуществить случайными числами от 10 до 100.



0

Puporev

Почетный модератор

64286 / 47585 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

12.04.2010, 17:21

2
Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

const n=10;
var a:array[1..n] of byte;
      i:byte;
      p:longint;
begin
randomize;
writeln('Массив:');
p:=1;
for i:=1 to n do
 begin
  a[i]:=random(91)+10;
  write(a[i],' ');
  if a[i] mod 5=0 then p:=p*a[i];
 end;
writeln;
write('P=',p);
readln
end.



1

Law[L]esS

117 / 114 / 89

Регистрация: 31.10.2009

Сообщений: 191

12.04.2010, 17:22

3
Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13

var
 a:array[1..10] of integer;
 i,sum:integer;
begin
 sum:= 1;
 for i:= 1 to 10 do begin
   a[i]:= 10+random(90);
   write(a[i],' ');
   if a[i] mod 5 = 0 then sum:= sum * a[i];
 end;
 writeln;
 writeln(sum);
end.



0

0 / 0 / 0

Регистрация: 12.04.2010

Сообщений: 10

12.04.2010, 17:26

 [ТС]

4

А вместо [1..10] ставить 1..100?



0

0 / 0 / 5

Регистрация: 21.04.2011

Сообщений: 72

04.06.2011, 13:33

5

нет! у тебя же размерность массива равна 10



0

Ev[G]eN

Mobile Software Engineer

Эксперт С++

5366 / 1585 / 956

Регистрация: 23.01.2011

Сообщений: 3,214

04.06.2011, 14:10

6
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
29

const
 n = 5;
type 
 TArr = array[1..n] of integer;
var
 arr: TArr;
 i: integer;
 
procedure Proizv(var ar: TArr);
var
 j: integer;
 pr: integer;
begin
 pr:=1;
  for j:=1 to n do
   if ar[j] mod 5=0 then pr:=pr*ar[j];
 writeln('Произведение элементов кратных 5: ', pr);
end;
 
begin
 writeln('Массив: '); 
  for i:=1 to n do
   begin 
    arr[i]:=random(91)+10;
    write(arr[i], ' ');
   end;
 writeln;
 Proizv(arr);
end.



0

2857 / 1986 / 788

Регистрация: 23.09.2010

Сообщений: 4,877

04.06.2011, 14:13

7

Не по теме:

некропостеры чтоли?



1

Ev[G]eN

04.06.2011, 14:27


    Произведение элементов массива, кратных 5



0
Источник
program z;
var i,p,n,f:integer;
a:array [1..20] of integer;
procedure sozdanie(var a1:array [1..20] of integer);
     var i:integer;
     begin
          for i:=1 to 20 do
              a1[i]:=trunc((15-(-15))*random+(-15));
     end;
procedure vuvod(a1:array [1..20] of integer);
     var i:integer;
     begin
          writeln('Ñëó÷Г*Г©Г*ûé âåêòîð: ');
          for i:=1 to 20 do
              write(a1[i],' ');
          writeln;
     end;
procedure proizvedenie(a1:array [1..20] of integer; var p1,f1:integer);
     var i:integer;
     begin
          p1:=1; f1:=0;
          for i:=1 to 20 do
              if (a1[i] mod 5=0) and (a1[i]<>0)
                 then
                     begin
                          p1:=p1*a1[i];
                          f1:=1;
                     end;
     end;
begin
     sozdanie(a);
     vuvod(a);
     proizvedenie(a,p,f);
     if f=0
        then
            writeln('ÝëåìåГ*òîâ, ГЄГ°Г*ГІГ*ûõ ГЇГїГІГЁ Гў Г¬Г*Г±Г±ГЁГўГҐ Г*ГҐГІ!')
     else
         writeln('ÏðîèçâåäåГ*ГЁГҐ ýëåìåГ*òîâ, ГЄГ°Г*ГІГ*ûõ ГЇГїГІГЁ - ',p);
end.

Источник

Все категории

  • Фотография и видеосъемка
  • Знания
  • Другое
  • Гороскопы, магия, гадания
  • Общество и политика
  • Образование
  • Путешествия и туризм
  • Искусство и культура
  • Города и страны
  • Строительство и ремонт
  • Работа и карьера
  • Спорт
  • Стиль и красота
  • Юридическая консультация
  • Компьютеры и интернет
  • Товары и услуги
  • Темы для взрослых
  • Семья и дом
  • Животные и растения
  • Еда и кулинария
  • Здоровье и медицина
  • Авто и мото
  • Бизнес и финансы
  • Философия, непознанное
  • Досуг и развлечения
  • Знакомства, любовь, отношения
  • Наука и техника


7

1 ответ:



0



0

Просто идём по массиву и ищем числа, которые кратны 5. Находим – записываем в произведение и идём дальше.

Читайте также

Все четырёхугольники кроме треугольника.
стороны равны в- первом, второй ряд вторая фигура,и квадрат

По моему она делется на:
Системное программное обеспечение
Прикладное программное обеспечение
Инструментальное программное обеспечение

1. Сам))
2. Lot is обозначает “серая мышь”
3.(1+2+3+4+5)/(10-7)=5
4. Продавец – цена
Машинист – время
Ученик – пример
5. Кабинет музыки – ноты, муз. инструменты
Кабинет Химии – колбы, кристаллы
Спорт зал – мячи, ракетки

Видов разветвленных алгоритмов 2

Решение с использование длинной арифметики.
var
  i, j, n, len, rem: integer;
  a: array[1..200] of byte;
begin
  write(‘Введите число: ‘);
  read(n);
  len := 1;
  a[1] := 1;
  for i := n + 1 to 99 {100} do
  begin
    for j := 1 to len do
    begin
      rem := a[j] * i + rem;
      a[j] := rem mod 10;
      rem := rem div 10;
    end;
    while rem > 0 do
    begin
      inc(len);
      a[len] := rem mod 10;
      rem := rem div 10;
    end;
  end;
  writeln(‘Произведение чисел из интервала (‘, n, ‘; 100): ‘);
  for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000

Источник

Данн массив целых чисел B (15) найти произведение элементов массива, кратных 5.

Вы открыли страницу вопроса Данн массив целых чисел B (15) найти произведение элементов массива, кратных 5?. Он относится к категории
Информатика. Уровень сложности вопроса – для учащихся 10 – 11 классов.
Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие
ответы по интересующей теме. Чтобы получить наиболее развернутый ответ,
можно просмотреть другие, похожие вопросы в категории Информатика,
воспользовавшись поисковой системой, или ознакомиться с ответами других
пользователей. Для расширения границ поиска создайте новый вопрос, используя
ключевые слова. Введите его в строку, нажав кнопку вверху.

Источник

Просто идём по массиву и ищем числа, которые кратны 5. Находим – записываем в произведение и идём дальше.

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

Вот пример кода на языке Python:

css
B = [1, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70]
product = 1

for num in B:
    if num % 5 == 0:
        product *= num

print("Произведение элементов массива, кратных 5, равно:", product)

В этом примере массив B содержит 15 элементов. Мы начинаем с произведения равного 1 и перебираем каждый элемент массива. Если элемент кратен 5, мы умножаем его на накопленное произведение. В конце цикла выводим результат. В данном случае ответ будет равен 30 000 000.

Источник

Добавить комментарий