Произведение элементов массива, кратных 7, отрицательные элементы заменить нулем

@ToshiDono · Регистрация: 13.05.2014

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

Здравствуйте! Помогите решить типовую задачу в билете! После завтра экзамен((((
Написать программу решения следующей задачи:
Дан массив из 20 целых чисел.
1) Найти произведение всех элементов массива, значения которых кратны 7.
2) Все отрицательные элементы заменить нулем.
Требования к программе:
· обязательно описание переменных;
· значения элементов массива ввести с клавиатуры;
· вывод результата форматировать.
Пример вывода:
Исходный массив
45 -2 46 6 12 -98 -23 -3 21 12 -4 23 6 7 15 -3 11 -23 5 23
Произведение нечетных элементов = -14406
Преобразованный массив
45 0 46 6 12 0 0 0 21 12 7 23 6 0 15 0 11 0 5 23

@Puporev · 17.07.2014, 14:18

Ну и в чем проблемы?

@ToshiDono · 17.07.2014, 14:38 **[ТС]**

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

@erl27 · 17.07.2014, 15:00

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
var
  A: array[1..20] of integer;
  P: integer;
  i: byte;
  
begin
  P := 1;
  writeln('Введите 20 элементов массива:');
  for i := 1 to 20 do begin
    write(i, ') ');
    readln(a[i]);
    if a[i] mod 7 = 0 then P := P * a[i]
  end;
  writeln('Исходный массив:');
  for i := 1 to 20 do
    write(' ', a[i]);
  writeln;
  writeln('Произведение элементов, кратных 7 = ', P);
  writeln('Преобразованный массив:');
  for i := 1 to 20 do begin
    if a[i] < 0 then a[i] := 0;
    write(' ', a[i])
  end
end.

@APALoff · 17.07.2014, 15:32

Сообщение от ToshiDono

я вижу что задачи решить реально, значит и сам смогу

О, а я вижу что оперировать человека в операционной можно - значит и я смогу! Надо попробовать...
А еще я вижу как дрессировщик со львами работает - видимо я тоже смогу!

Добавлено через 1 минуту
Ваши задачи слишком элементарны и уж если они вызывают сложность, то на "авось" надеяться не стоит.

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@ToshiDono 1 / 1 / 0 Регистрация: 13.05.2014 Сообщений: 39

	Произведение элементов массива, кратных 7, отрицательные элементы заменить нулем 17.07.2014, 14:16. Показов 4348. Ответов 4 Метки нет (Все метки) Здравствуйте! Помогите решить типовую задачу в билете! После завтра экзамен(((( Написать программу решения следующей задачи: Дан массив из 20 целых чисел. 1) Найти произведение всех элементов массива, значения которых кратны 7. 2) Все отрицательные элементы заменить нулем. Требования к программе: · обязательно описание переменных; · значения элементов массива ввести с клавиатуры; · вывод результата форматировать. Пример вывода: Исходный массив 45 -2 46 6 12 -98 -23 -3 21 12 -4 23 6 7 15 -3 11 -23 5 23 Произведение нечетных элементов = -14406 Преобразованный массив 45 0 46 6 12 0 0 0 21 12 7 23 6 0 15 0 11 0 5 23 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.07.2014, 14:18
	Ну и в чем проблемы? 0

@ToshiDono 1 / 1 / 0 Регистрация: 13.05.2014 Сообщений: 39
	17.07.2014, 14:38 [ТС]
	Проблема в том, что у меня мало времени до экза(он в субботу утром(((, а я только начинаю изучать массивы. Решение этих пробных задач убивает 2х зайцев: 1.сильно мне помогает в освоении массивов, 2. морально готовит к сдаче экзамена(я вижу что задачи решить реально, значит и сам смогу). 0