murkovich Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   program x; uses crt; var mas: array[1..3, 1..4] of integer;  i, j, stroka, stolbec, maks: integer; begin stroka := 1; stolbec := 1; maks := mas[1,1];   for i := 1 to 3 do  for j := 1 to 4 do   if mas[i, j] > maks then begin    stroka := j; stolbec := i; maks := mas [i, j];   end;   writeln('maks element: ', maks, ' (', stroka, stolbec, ')');     end. Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 11:37 22-04-2010

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

Компьютерный форум 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование