Регистрация
кирилляz
30.12.2020 09:48
Информатика
Есть ответ 👍

Ставьте алгоритм действий для робота, которому дали задание сварить компот

133
339
Посмотреть ответы 1

Ответы на вопрос:

mczuf
mczuf
4,4(4 оценок)

const

  nn = 10000;

var

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

  i, n, min, b: integer;

begin

  readln(n);

  b : = 1;

  for i : = 1 to n do read(a[i]);

  min : = a[1];

  for i : = 2 to n do  

    if (a[i] < min) then  

    begin

      min : = a[i];

      b : = 1;

    end

    else if (a[i] = min) then b : = b + 1;

  writeln(b);

end.

Популярно: Информатика