|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.02.2009, 19:31 | #1 |
Регистрация: 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. |
13.02.2009, 19:33 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
произведение элементов массива меньше или равных 10
вступлю в команду разработчиков ПО на Delphi
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль. массивы | }{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 |