derelict Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   const   n = 5; var   F: array [1..n] of string;   tF: string;   A: array [1..n] of real;   tA: real;   i, j: integer; begin   for i := 1 to n do     begin       write('Surname: ');       readln(F[i]);       write('Result: ');       readln(A[i]);       writeln;     end;   for i := 1 to n - 1 do     for j := 1 to n - 1 do       if A[j] < A[j + 1] then         begin           tA := A[j + 1];           A[j + 1] := A[j];           A[j] := tA;           tF := F[j + 1];           F[j + 1] := F[j];           F[j] := tF;         end;   for i := 1 to 3 do     writeln('Place #', i, ': ', F[i], ' (', A[i]:4:2, ')');   readln; end.   Всего записей: 232 | Зарегистр. 11-06-2006 | Отправлено: 23:59 07-12-2009

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

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