Электронные часы показывают время в формате h: mm: ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. количество минут и секунд при необходимости дополняются до двузначного числа нулями. с начала суток секунд. выведите, что покажут часы. входные данные вводится целое число n. выходные данные выведите ответ на , соблюдая требуемый формат. примеры входные данные 3602 выходные данные 1: 00: 02 входные данные 129700 выходные данные 12: 01: 40

Var n,h,m,s:integer;
begin
readln(n);
n:=n mod (24*3600);
h:=n div 3600;
m:=(n-h*3600) div 60;
s:=n mod 60;
write(h,':');
case m of
 0: write('00:');
 1..9:write('0',m,':');
 else write(m,':');
end;
case s of
 0: writeln('00');
 1..9:writeln('0',s);
 else writeln(s);
end;
end.

Пример:
129700
12:01:40

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.

Школьные Знания.com

Задай вопрос из школьного предмета
10 - 11 классы Информатика 5+3 б

Задача матрицы найти максимальный элемент матрицы 16 2 8 9 14 27 (М 6) необходимо решение и блок-схема
Попроси больше объяснений Следить Отметить нарушение Toma74 10.05.2014
Реклама

ответы и объяснения
AdaLavleis
AdaLavleis Умный
Program Max_element_massiva ;
Var i, n, max : integer ;
A : array [1..100] of integer;
Begin Writeln('Введите количество элементов массива') ;
Readln(N) ;
Randomize;
For i := 1 to N do
begin A[i] := Random(100);
Write(A[i]);
end;
Max := A[1];
For i := 2 to N do
if A[i]>Max then Max := A[i];
Writeln('Максимальный Элемент массива = ',Max) ;
Readln ;