Помогите пожалуйста. Срочно!!!

AyratGa · 16.05.2019, 16:30

Заранее спасибо.
Условие задачи:
Определить наименьшее из чисел, введенных с клавиатуры.
Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". Нужно решить в Паскале.

Vladimir_S · 16.05.2019, 16:52

Цитата:

Сообщение от AyratGa

Заранее спасибо.
Условие задачи:
Определить наименьшее из чисел, введенных с клавиатуры.
Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". Нужно решить в Паскале.

Ох, скукотища... Да пожалуйста:

Код:

Var
 a,min:integer;

Begin
 Write('First number: ');
 Readln(min);
 repeat
  Write('Next number: ');
  Readln(a);
  if a<min then min:=a;
 until a=0;
 Writeln('Minimal number is ',min);
 Readln
End.

AyratGa · 16.05.2019, 17:11

Спасибо большое)

Vladimir_S · 16.05.2019, 17:16

Цитата:

Сообщение от AyratGa

Спасибо большое)

Да не за что...

16.05.2019, 16:30	#1 (permalink)
AyratGa Новичок Регистрация: 16.05.2019 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста. Срочно!!! Заранее спасибо. Условие задачи: Определить наименьшее из чисел, введенных с клавиатуры. Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". Нужно решить в Паскале.

16.05.2019, 16:30
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Люди интересуются одним и тем же, зачастую создают аналогичные темы Помогите срочно!! Пожалуйста Помогите пожалуйста!Срочно! помогите, пожалуйста, срочно Помогите пожалуйста срочно!

16.05.2019, 17:11	#3 (permalink)
AyratGa Новичок Регистрация: 16.05.2019 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070