1640 секунд примерно, если перевести в минуты, то <span>27 приблизительно!</span>
Program n_1;
var n, i:integer;P, b, s: real;
begin
read(n, P);
s:=0;
for i:=1 to n do begin
read(b);
if b>P then s:=s+b;
end;
writeln(s:0:10);
end.
По алгоритмам? Ну на тебе несколько из разных тем.
1) Написать программу для машины Тьюринга, выполняющую сортировку 0 и 1 в двоичном слове.
2) В виде нормального алгоритма (Маркова) реализовать алгоритм сложения целых чисел, заданных в троичной симметричной системе счисления.
3) Проверить разрешимость множества всех простых чисел.
4) Доказать, что класс всех полуразрешимых подмножеств N совпадает с классом всех перечислимых подмножеств N.
Ну и т. д.
Собственно списки (точнее, книги с задачами), например, эти:
1) Дасгупта, Пападимитриу, Вазирани - Алгоритмы.
2) Кормен, Лейзерсон, Штайн - Алгоритмы построение и анализ.
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.