Создать программу для определения минимального с 5-ти введенных

@james everstone · Регистрация: 04.05.2016

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

Создать программу для определения минимального с 5-ти введенных пользователем целых чисел. Определение минимального числа должно определяться в подпрограмме.
Помогите пожалуйста!)

@Puporev · 10.05.2016, 19:15

Pascal

function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b
end;
var a,b,c,d,e:integer;
begin
writeln('Введите 5 целых чисел');
readln(a,b,c,d,e);
write('Минимальное=',min(min(a,b),min(min(c,d),e)))
end.

@JuriiMW · 12.05.2016, 07:23

Или так сразу для пяти значений:

Pascal

function min(n1,n2,n3,n4,n5 : Integer) : Integer := min(n1, min(n2, min(n3, min(n4, n5))));
 
begin
  var a,b,c,d,e : Integer;
  ReadLn(a,b,c,d,e);
  WriteLn(min(a,b,c,d,e));
end.

Создать программу для определения минимального с 5-ти введенных

Решение

Решение

@james everstone 0 / 0 / 0 Регистрация: 04.05.2016 Сообщений: 10
		1
	Создать программу для определения минимального с 5-ти введенных 10.05.2016, 18:50. Показов 1369. Ответов 2 Метки нет (Все метки) Создать программу для определения минимального с 5-ти введенных пользователем целых чисел. Определение минимального числа должно определяться в подпрограмме. Помогите пожалуйста!) 0

	12.05.2016, 07:23