Написать программу нахождения минимального значения больше нуля в последовательности вводимых целых чисел

@gavrjuka · Регистрация: 16.12.2011

Студворк — интернет-сервис помощи студентам

Написать программу нахождения минимального значения больше нуля в последовательности вводимых целых чисел c окончанием по вводу числа "0".

@Г.Р. · 19.01.2012, 18:38

Pascal

var
  min,a:longint;
begin
  read(a);
  min:=a;
  while(a<>0) do
  begin
    if((min>a)and(a>0)) then min:=a;
    read(a);
  end;
  writeln(min);
end.

@gavrjuka 0 / 0 / 0 Регистрация: 16.12.2011 Сообщений: 29
		1
	Написать программу нахождения минимального значения больше нуля в последовательности вводимых целых чисел 18.01.2012, 19:16. Показов 3026. Ответов 1 Метки нет (Все метки) Написать программу нахождения минимального значения больше нуля в последовательности вводимых целых чисел c окончанием по вводу числа "0". 0

Опции темы

Написать программу нахождения минимального значения больше нуля в последовательности вводимых целых чисел

Решение