Задача на нахождение min числа

@ProFiTM · Регистрация: 28.10.2011

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

Помогите написать программу:
Дана последовательность чисел, найти в ней наименьшее число.
Вводимые данные:
Задается число N - кол-во чисел в последовательности, числа. Все числа из диапазона integer.
N<=100.
Желательно полный код от program до end. если можно и НЕ через массив.

@Puporev · 14.10.2013, 09:01

Pascal

const nmax=100;
var n,i,a,mn:integer;
begin
repeat 
write('Количество чисел от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите ',n,' целых чисел');
read(mn);
for i:=2 to n do
 begin
  read(a);
  if a<mn then mn:=a
 end;
write('Минимальное=',mn);
end.

@ProFiTM 2 / 2 / 1 Регистрация: 28.10.2011 Сообщений: 35
		1
	Задача на нахождение min числа 14.10.2013, 02:05. Показов 939. Ответов 1 Метки нет (Все метки) Помогите написать программу: Дана последовательность чисел, найти в ней наименьшее число. Вводимые данные: Задается число N - кол-во чисел в последовательности, числа. Все числа из диапазона integer. N<=100. Желательно полный код от program до end. если можно и НЕ через массив. 0

	14.10.2013, 09:01

Опции темы

Задача на нахождение min числа

Решение