На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 18 минут 30 секунд. сколько спортсменов по результатам соревнований вышли в финал? количество спортсменов, принимавших участие в соревнованиях 30. для каждого спортсмена вводится два числа: минуты и секунды – время, показанное на дистанции.

Решил я вам эту в паскале. я у себя проверил - всё работает. текст программы: program sport; var m, s, i, kol: integer; begin for i: =1 to 30 do begin write('введите минуты, а затем секунды показанные спортсменом номер '+i+': '); read(m,s); if (m< 18) then inc(kol); if (m=18) and (s< =30) then inc(kol); end; writeln(kol); end.

program xxx;

  var i, j, k, min : integer;

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

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

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.