Регистрация
лиз20031
17.01.2022 16:02
Информатика
Есть ответ 👍

1. Выберите из списка языки программирования: (2 прав.ответа) * Python
Borland Delphi
Microsoft Visual Basic
Pascal

188
359
Посмотреть ответы 2

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

newagain
newagain
4,4(69 оценок)

1 Пейтон и 4 Паскаль ,4 загугли точно не уверена по моему, а Пейтон точно.

ФрискТок
ФрискТок
4,8(79 оценок)

var

  ch, n, min, kmin: integer;

begin

  write('введите кол-во чисел последовательности: ');

  readln(n);

 

  min : = 0;

  kmin : = 0;

 

  writeln('введите целые числа в кол-ве ', n, '
штук: ');

  for n : = 1 to n do

  begin

    read(ch);

    if (ch < min) or (kmin = 0) then

    begin

      min : = ch;

      kmin : = 1;

   
end

    else if (ch = min) then

      kmin : = kmin + 1;

  end;

 

  writeln('минимальное число: ', min);

  writeln('кол-во минимальный чисел: ', kmin);

end.

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