1)сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько сколько полных минут прошло с начала очередного ча, сколько секнуд прошло сначала очередной минуты. ( напишите алгоритмом , а не кодом , )

Блок-схема во вложении

Pacal   function f() : integer;   var    k,i : integer;   begin    k : = 0;     for i : = 100 to 999 do    if (i mod 13 = 0) and (i mod 100 < > 3) then      k : = k +1;     result : = k;     end;       begin  writeln (;   end.  const      n = 30;     var    a : array [1..n] of integer;     i,b : integer;     r : boolean;           begin  readln (b);       i : = 1;   r : = false;     while (not r) and (i < = n) do    begin      if a[i] = b then      r : = true;       i : = i +1;     end;       if r then    writeln ('есть')  else    writeln ('нет');       end.

"четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы. const   n=13; var   a: array[1..n] of integer;   i,imin: integer; begin   { инициализация }   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i]: =random(50);       write(a[i]: 3)   end;   writeln;   { поиск минимума }   i: =4; imin: =2;   while i< =n do begin       if a[imin]> a[i] then imin: =i;       i: =i+2   end;   writeln('минимальный элемент с четным номером ',imin,' равен ',a[imin]); end. тестовое решение: элементы массива   30 23  5 19 36 10 10 37 42  4 23 37 34 минимальный элемент с четным номером 10 равен 4