Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 09.08.2020, 20:54Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0119 Сортировка времени

Скачать файл можно после просмотра рекламы:

15.06.2012, 00:15
var i,ch,m,s,n:integer; 
ms:array[1..100] of longint; 

procedure sort; 
var j,i,mem:longint; 
begin 
for i:=1 to n-1 do 
for j:=1 to n-1 do 
if ms[j]>ms[j+1] 
then begin mem:=ms[j]; 
ms[j]:=ms[j+1]; 
ms[j+1]:=mem; 
end; 
end; 

begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
readln(n); 
for i:=1 to n do begin 
readln(ch,m,s); 
ms[i]:=ch*3600+m*60+s; 
end; 

sort; 

for i:=1 to n do begin 
ch:=ms[i] div 3600; 
m:=ms[i] mod 3600; 
s:=m mod 60; 
m:=m div 60; 
writeln(ch,' ',m,' ',s) 
end; 
end. 
Категория: Pascal | Добавил: shum
Просмотров: 4754 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020