rain87 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код: program Project1;   {$APPTYPE CONSOLE}   uses   SysUtils;   type darr=array of integer;   function fillarr(cnt:integer):darr; begin     setlength(result,cnt);     for cnt:=cnt-1 downto 0 do result[cnt]:=random(1000000); end;   var a:darr;     i:integer;   begin   { TODO -oUser -cConsole Main : Insert code here }     randomize;     a:=fillarr(random(20));     for i:=0 to length(a)-1 do write(a[i]:8);     readln;   end. Всего записей: 1744 | Зарегистр. 21-06-2006 | Отправлено: 19:32 06-11-2006 | Исправлено: rain87, 19:32 06-11-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование