|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.01.2008, 13:51 | #11 | |
Пользователь
Регистрация: 04.01.2008
Сообщений: 21
|
Цитата:
var a:array [1..10] of integer; min, max,i:integer; begin {ввод} for I:=1 to 10 do read (a[i]); {поиск минимума} min:=a[1]; for i:=2 to 10 do if min>a[i] then min:= a[i]; {поиск максимума} max:=a[1]; for i:=2 to 10 do if max<a[i] then max:= a[i]; end. |
|
23.01.2008, 18:36 | #12 |
Пользователь
Регистрация: 09.12.2007
Сообщений: 36
|
Спасибо Андрюха из ПХТТ, но в программе просто показывается пустое окно, что я должен ввести ?
|
23.01.2008, 21:46 | #13 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Код:
Последний раз редактировалось puporev; 23.01.2008 в 21:48. |
23.01.2008, 22:19 | #14 |
Пользователь
Регистрация: 09.12.2007
Сообщений: 36
|
Спасибо, разобрался
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с задачей. | terminadoor | Помощь студентам | 4 | 22.07.2008 18:38 |
Помогите с задачей | drossel | Общие вопросы C/C++ | 9 | 01.06.2008 21:45 |
Помогите с задачей.. | vit_al | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 24.04.2008 13:48 |
Помогите с Задачей на массив | Андрюха из ПХТТ | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 20.02.2008 16:49 |