|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2008, 19:14 | #1 |
Пользователь
Регистрация: 30.09.2008
Сообщений: 10
|
a:array[1..50] of integer;
program xoop2;
var i,l:integer; min1,min2:integer; a:array[1..50] of integer; b:array[1..40] of integer;} procedure port(var x,y:integer); begin port:=(x-y)/2; end; begin miny:=100; maxx:=-100; for i:=1 to 50 do begin a[i]:=random(50); if a[i]maxx then maxx:=a[i]; end; for l:=1 to 40 do begin b[l]:=random(40); if b[l]<miny then miny:=b[l]; end; readln(maxx,miny); port(maxx,miny); writeln(port); end. |
25.12.2008, 19:16 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В String и Array сразу. | Cubaholic | Общие вопросы Delphi | 3 | 19.11.2008 23:01 |
Array | Devikss | Помощь студентам | 4 | 19.06.2008 22:45 |
Array | BETONOMESHALKA | Общие вопросы Delphi | 2 | 24.11.2007 22:49 |
задать массив типа X: array [0..N] of integer -где N переменная читаеться из EditBox | Kivin13 | Общие вопросы Delphi | 22 | 06.09.2007 09:25 |
Array или не array | Димарик | Общие вопросы Delphi | 4 | 18.06.2007 15:16 |