Регистрация
politovatanya1
15.10.2020 16:10
Информатика
Есть ответ 👍

Напишите программу паскаль ! в последовательности целых чисел найдите минимальное число и количество его повторений

245
260
Посмотреть ответы 2

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

ФрискТок
ФрискТок
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.

siraevadiana
siraevadiana
4,4(93 оценок)
1)  20 кб =    163840 бит       t1=    163840 : 1024 = 160 сек 2) скорость в 2 раза больше => времени потребуется в 2 раза меньше:     t2=   160 : 2 = 80 сек         ответ: 80 (для проверочки) t2=   163840 : 2048 = 80 сек

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