Завдання «Кількість елементів, рівних мінімуму» Умова
Послідовність складається з натуральних чисел і завершується числом 0. Визначте, скільки елементів цієї послідовності дорівнюють її найменшому елементу.

Можно заметить, что нас с каждым днем окружает все больше электронных приборов, делающих нашу жизнь проще.
Компьютеры, телевизоры, сотовые телефоны, электрочайники, умные автомобили и много чего еще в этом духе. В принципе удивительного в этом ничего нет. Человек стремится максимально улучшить, упростить свою жизнь, избавить себя от рутины. Для этого он изобретает все новые и более совершенные технологии. Так были изобретены первые роботы.
Роботы уже полной мерой вошли в нашу жизнь. Теперь мы просто не представляем ее без них. Некоторые роботы готовят еду, некоторые роботы разносят лекарства, убирают, стирают и выполняют огромное количество других функций.
Если заглянуть немного в будущее, то можно предположить, что появятся роботы, которые будут нам по дому, будут для нас что-то типа прислуги. Смогут выгуливать наших домашних животных нашим детям готовить домашние задания, сидеть с младенцами, когда родителям нужно отъехать куда-нибудь. Да и внешне они будут выглядеть точно также как и люди.

var

  hour:integer;

begin

  write('Который час? '); readln(hour);

  case hour of

    6..11: writeln('Доброе утро');

    12..15:writeln('Добрый день');

    16..21: writeln('Добпый вечер');

    22..24, 0..5: writeln('Доброй ночи');

  else

    writeln('В сутках только 24 часа');

  end;

end.

 

//через if

 

var Hour:integer;
begin
writeln('Введите время');
readln(Hour)  ;
if Hour <= 12 then
begin
writeln('Добрго утра');
end;
if (Hour > 12) and (Hour < 20) then
begin
writeln('Доброго дня');
end;
if (Hour >= 20) and (Hour <= 24) then
begin
writeln('Добрый вечер');
end;
if Hour > 24 then
begin
writeln('Не многовато часиков то ?');
end;
end.