|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2012, 18:44 | #1 |
Пользователь
Регистрация: 08.09.2012
Сообщений: 41
|
Массивы паскаль
Здравствуйте, помогите дописать, пожалуйста(с подпрограммами и функциями)
Одномерный массив А длиной N<=20 заполнить случайными числами из диапазона [–15..80]. Составить программу определения: • количества и суммы минимальных элементов; • есть ли в данном массиве два соседних отрицательных элемента? Найти номера последней пары. Program number; const n=20; type temp= array[1..n] of integer; var tp:temp; x, y, min:integer; ind:byte; procedure vvod(var a:temp); var i:byte; begin randomize; for i:=1 to n do a[i]:=random(96)-15; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль. Массивы | Ондрюша | Помощь студентам | 3 | 14.06.2012 13:02 |
паскаль - массивы | _FENDER_ | Помощь студентам | 3 | 02.05.2011 22:04 |
Массивы, Паскаль | Анюта01 | Помощь студентам | 2 | 30.03.2010 18:21 |
Паскаль. Массивы | Sexy Fox | Помощь студентам | 5 | 12.04.2008 21:45 |