Наити произведение элементов кратных 3.

@777равиль777 · Регистрация: 15.06.2011

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

Задание:
Наити произведение элементов кратных 3.
Например если A=(2,4,9,2,6,-3,2) Результат9*6*(-3)=-162

@Puporev · 15.06.2011, 20:42

Pascal

1
2
3

p:=1;
for i:=1 to n do
if a[i] mod 3=0 then p:=p*a[i];

@777равиль777 · 15.06.2011, 20:51 **[ТС]**

спс)))
а можно еще такое сделать. чтоб какбы сама программа.
ввод цифр было рандомное и их кол-во 5 и от этих чисел выводился ответ с тем же заданием что выше. спс за ранее)

@Puporev · 15.06.2011, 21:00

Описание, объявление и заполнение массивов (матриц)

@777равиль777 · 15.06.2011, 21:03 **[ТС]**

еще 1 вопрос, а существует турбо паскаль на windows 7?

@shilovec5377 · 15.06.2011, 21:05

помоиму паскаль работае и на семерке. Сам пробовал!!!

@Puporev · 15.06.2011, 21:07

Специального нет, есть ShhoPack= ТП+DosBox
Скачать Паскаль

@777равиль777 · 15.06.2011, 21:07 **[ТС]**

а можно проверенную сылку на работающий паскаль на 7? сюда или в личку(если реклама запрещена).

@shilovec5377 · 15.06.2011, 21:08

Pascal

n:=5;
p:=1;
for i:=1 to n do
a[i]:=random(10);
if a[i] mod 3=0 then p:=p*a[i];

как-то так!!!

@777равиль777 · 15.06.2011, 21:08 **[ТС]**

спасиб

@Puporev · 15.06.2011, 21:10

Сообщение от 777равиль777

а можно проверенную сылку на работающий паскаль на 7? сюда или в личку(если реклама запрещена).

Я Вам и дал проверенную ссылку на наш форум, а Паскали все давно бесплатные.

@777равиль777 · 15.06.2011, 22:59 **[ТС]**

спс всем тему можно закрыть)

@777равиль777 0 / 0 / 0 Регистрация: 15.06.2011 Сообщений: 10
	15.06.2011, 22:59 [ТС]	12
	спс всем тему можно закрыть) 0

@777равиль777 0 / 0 / 0 Регистрация: 15.06.2011 Сообщений: 10
		1
	Наити произведение элементов кратных 3. 15.06.2011, 20:35. Показов 612. Ответов 11 Метки нет (Все метки) Задание: Наити произведение элементов кратных 3. Например если A=(2,4,9,2,6,-3,2) Результат96(-3)=-162 0

@777равиль777 0 / 0 / 0 Регистрация: 15.06.2011 Сообщений: 10
	15.06.2011, 20:51 [ТС]	3
	спс))) а можно еще такое сделать. чтоб какбы сама программа. ввод цифр было рандомное и их кол-во 5 и от этих чисел выводился ответ с тем же заданием что выше. спс за ранее) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2011, 21:00	4
	Описание, объявление и заполнение массивов (матриц) 1

@777равиль777 0 / 0 / 0 Регистрация: 15.06.2011 Сообщений: 10
	15.06.2011, 21:03 [ТС]	5
	еще 1 вопрос, а существует турбо паскаль на windows 7? 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	15.06.2011, 21:05	6
	помоиму паскаль работае и на семерке. Сам пробовал!!! 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2011, 21:07	7
	Специального нет, есть ShhoPack= ТП+DosBox Скачать Паскаль 1

@777равиль777 0 / 0 / 0 Регистрация: 15.06.2011 Сообщений: 10
	15.06.2011, 21:07 [ТС]	8
	а можно проверенную сылку на работающий паскаль на 7? сюда или в личку(если реклама запрещена). 0

@777равиль777 0 / 0 / 0 Регистрация: 15.06.2011 Сообщений: 10
	15.06.2011, 21:08 [ТС]	10
	спасиб 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2011, 21:10	11
	Сообщение от 777равиль777 а можно проверенную сылку на работающий паскаль на 7? сюда или в личку(если реклама запрещена). Я Вам и дал проверенную ссылку на наш форум, а Паскали все давно бесплатные. 1