Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.02.2009, 19:31   #1
Натуськ@25
 
Регистрация: 13.02.2009
Сообщений: 3
Печаль массивы Паскаль

Опишите, что получится в результате выполнения программы?
Program Variant4;
Const n =25;
Var A: Array[1..n] Of Integer;
i: Byte; p: Integer;
Begin
p:=1;
For i:=1 To n do
Begin
A[i]:=-50+Random(151);
if A[i]<=10 Then p:=p*A[i]; End;
Writeln(p);
End.
Натуськ@25 вне форума Ответить с цитированием
Старый 13.02.2009, 19:33   #2
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

произведение элементов массива меньше или равных 10
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. массивы }{oTT@БЬ)Ч™ Помощь студентам 9 07.12.2015 20:00
массивы. паскаль. tanuschka Помощь студентам 7 05.10.2009 23:20
Массивы Паскаль Рітка-кулеметчиця Помощь студентам 1 02.02.2009 08:48
Паскаль и массивы RamireZ Паскаль, Turbo Pascal, PascalABC.NET 7 24.10.2008 17:20
Паскаль, массивы. SZero Помощь студентам 5 22.03.2008 16:06