Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 486

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Помогите составить три программы на языке Паскаль. Очень нужна Ваша помощ, это последняя надежда.
1.В массиве С1,С2..С37 найти произведениечисел,больших 2.
2.Из заданного массива чисел х1,х2...х25 исключить последнее положительное число.Оставшиеся числа переписать в новый массив е1бе2юююе24ю
3.Найти сумму положительных элементов последовательности d1,d2..d22,
расположенных до первого нулевого элемента.

Вавилов Тимофей Сергеевич Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Вавилов Тимофей Сергеевич (статус: Посетитель)
Вопрос отправлен: 6 марта 2009, 16:34
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

У меня депрессия. Чтоб хоть чем-нибудь заняться, я написал эту ерунду.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 7 марта 2009, 11:16
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 6 марта 2009, 16:44; участников в обсуждении: 2.
Вадим К

Вадим К (статус: Академик), 6 марта 2009, 16:40 [#1]:

м, последняя надежда? никто не может решить?
вот первая - пара строк
p := 1;
for i := 1 to 37 do
  if C[i] > 2 then p := p*C[i];
всё... только сделать ввод масива, вывод результата, который в p. Справитесь? Если нет, то смысла писать остальные решения нет...
Галочка "подтверждения прочтения" - вселенское зло.
Вавилов Тимофей Сергеевич

Вавилов Тимофей Сергеевич (статус: Посетитель), 6 марта 2009, 16:44 [#2]:

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

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 7 апреля 2020, 14:40
Выполнено за 0.02 сек.
Рейтинг@Mail.ru