Подсчитать произведение чисел, кратных 3 и определить среди них минимальное

@Ruslanishe · Регистрация: 17.10.2010

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program kratnie;
uses crt;
Var i,j,m,n:integer;
s:longint;
Begin
clrscr;
writeln('vvedite m='); readln(m);
writeln('vvedite n='); readln(n);
s:=1;
writeln('chisla kratnie 3 v itervale ot m do n:')
  for i:=m to n do
      begin
            if i mod 3=0 then
                         begin
                             writeln(i);
                             s:=s*1;
end
end; 
writeln('proizvedenie etih chisel:',s);
readln;
end.

вот так! А как сделать чтобы он показал минимальное из всех чисел??

@Puporev · 18.10.2010, 13:47

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

writeln('Минимальный среди элементов кратных 3 ',a[min]);

Вот здесь все верно, а если ты апостроф пропустил, то нефиг претензии выдвигать...

Добавлено через 40 секунд
Или лишний наоборот воткнул...

@mamedovvms · 18.10.2010, 13:48

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

выдаёт ошибку на пункте минимального из 3: Error 8: String constant exceeds line.

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

@Ruslanishe · 18.10.2010, 13:59 **[ТС]**

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

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

блин точно после a[min] поставил апостроф!! сорри это моя слепота!
ещё вопросик почему он считает инимальное нето!

Добавлено через 2 минуты
подождите разберуся напишу!

Добавлено через 2 минуты
скажите как сюда ввести изоюражение покажу результат есть вопрос!

@mamedovvms · 18.10.2010, 14:00

вот в этой строке напиши так a[i]:=random(100)+1; так как если в массиве будет 0 то программа решит что это число кратно 3 и оно будет участвовать в произведение, ну а если любое число умножить на 0 то получиться 0

@Ruslanishe · 18.10.2010, 14:08 **[ТС]**

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

вот в этой строке напиши так a[i]:=random(100)+1; так как если в массиве будет 0 то программа решит что это число кратно 3 и оно будет участвовать в произведение, ну а если любое число умножить на 0 то получиться 0

вот спс этот вопрос и был)

Добавлено через 1 минуту
а то ноль часто вылазил)

Добавлено через 6 минут
а то ноль часто вылазил)

@кот Бегемот · 18.10.2010, 14:08

mamedovvms, min задан неверно.
я бы написал так:

Pascal
1
min:=maxint div 3;

потому что первый мин должен быть самым большим

@Ruslanishe · 18.10.2010, 14:09 **[ТС]**

Сообщение от кот Бегемот

mamedovvms, min задан неверно.
я бы написал так:

Pascal
1
min:=maxint div 3;

потому что первый мин должен быть самым большим

ну прога работает нормально несколько раз на одном и томже n проверял и выдавал верно!

@Ruslanishe · 18.10.2010, 14:18 **[ТС]**

mamedovvms и PUPOREV спасибо огромное обе проги работают отлично!!

@mamedovvms · 18.10.2010, 14:41

Сообщение от кот Бегемот

потому что первый мин должен быть самым большим

задано верно, если вы не обратили внимание то я присвоил 1 а это число совсем не делится на 3, и это значит что еще вообще ни одного не найдено элемента который бы делился на 3 это раз а во вторых min:=maxint div 3; чему же будет тогда равно min????? а он будет равен 10 922 а это число как вы понимаете не является кратным 3, а значит не удовлетворяет условию задачи, логично? Так может быть стоит с начала разобраться как написана мной задача, а уже потом говорить правильно ли она сделана. Сказать не правильно и не эффективно разные вещи

Добавлено через 13 минут
извиняюсь забыл чему присваивал значение, значит так оно присвоено 0 , в min я сохранял индекс элемента в массиве, нулевого в данном массиве нет. И если min равен 0 значит еще не найдено ни одного элемента который бы удовлетворял условию. Ну короче говоря повнимательнее прочитайте код программы и еще раз скажите правильно сделано или не правильно

@кот Бегемот · 18.10.2010, 16:16

Да нет, не вопрос, всё будет работать, но мин, задаваемый как большое число несколько упростит программу, одно условие можно будет сократить.

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	18.10.2010, 14:00
	вот в этой строке напиши так a[i]:=random(100)+1; так как если в массиве будет 0 то программа решит что это число кратно 3 и оно будет участвовать в произведение, ну а если любое число умножить на 0 то получиться 0 1

@Ruslanishe 25 / 9 / 4 Регистрация: 17.10.2010 Сообщений: 203
	18.10.2010, 14:18 [ТС]
	mamedovvms и PUPOREV спасибо огромное обе проги работают отлично!! 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	18.10.2010, 16:16
	Да нет, не вопрос, всё будет работать, но мин, задаваемый как большое число несколько упростит программу, одно условие можно будет сократить. 0