|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.05.2008, 16:10 | #1 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
В институт нужно решить 5 задачек по паскалю, кому не сложно, решите - буду очень благодарен
1. Найти сумму элементов А(7) с 5-го по 7-ой. 2. Найти сумму отрицательных элементов В(7) 3. Найти количество отрицательных элементов В(6) 4. Найти количество положительных элементов С(8) 8. Найти отдельно сумму и произведение всех элементов А(9 а можно это все по подробнее расписать? а то я совсем в этом не понимаю =) И еще массив должен рандомно заполняться Последний раз редактировалось AlDelta; 08.05.2008 в 20:37. |
08.05.2008, 16:48 | #2 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Мда......
1. summa := mas[5] + mas[6] + mas[7]; 2. For i := 1 To 7 Do if mas[i] < 0 Then summa := Summa + mass[i]; 3. For i := 1 To 6 Do if mas[i] < 0 Then k := k + 1; 4. For i := 1 To 8 Do if mas[i] > 0 Then k := k + 1; 5. For i := 1 To 9 Do Begin summa = summa + ms[i]; proizv := proizv * mass[i]; End;
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
08.05.2008, 18:39 | #3 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,690
|
Мммдааа
1. Код:
Код:
Код:
Код:
Код:
|
08.05.2008, 19:39 | #4 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
выводится всегда одно и то же значение ((
Ктонить может рещить эти задачи по примеру вот этой: Найти произведение положительных элементов А(6): Код:
|
08.05.2008, 19:42 | #5 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Код:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
08.05.2008, 19:44 | #6 | |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Цитата:
|
|
08.05.2008, 20:04 | #7 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
а как еще сделать так чтоб он всетки выводил те числа которые он сгенерировал в массив, а то фиг проверишь правильно ли он считает, к примеру количество отр. чисел в массиве
|
08.05.2008, 20:08 | #8 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
После такой строчки
Код:
Код:
|
08.05.2008, 20:28 | #9 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
Все вроде правельно, кроме 2й задачки
Код:
|
08.05.2008, 20:40 | #10 |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Думаю автор получил больше даже чем нужно...
Такие задачки лучше решать самостоятельно, чтобы потом небыло стыдно за потраченное время. Закрыто.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Две задачи на массивы. | Nadi | Помощь студентам | 4 | 25.04.2011 16:58 |
Pascal/Массивы | ромка) | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 14.06.2008 18:29 |
Массивы в Pascal | Alex XXX | Помощь студентам | 4 | 21.04.2008 02:16 |
Pascal. Массивы | Danilyuk | Помощь студентам | 1 | 22.01.2008 19:56 |