Паскаль: найти наименьшее из трех чисел

[Jan]

Паскаль: найти наименьшее из трех чисел

Помогите мне пожалуйста с задачкой!
Дано три числа надо найти меньшее с них!
Заранее спосибо!!!)))

 

[Vladimir_S]

Помогите мне пожалуйста с задачкой!

А нет желания самостоятельно попытаться решить эту глупейшую задачку ясельного уровня?

 

[Mr.Програмист]

Лови листинг и учи Паскаль

Var a:array[1..3] of integer;
i,b:integer;
begin
Writeln('введите 3 числа');
for i:=1 to 3 do
Readln(a[i]);
b:=a[1];
for i:=2 to 3 do
begin
if a[i]<b
then b:=a[i];
end;
writeln(b);
readln;
end.

 

[AlexZir]

Не вижу никакого смысла распределять память под целочисленный массив и использовать циклические структуры. Достаточно определить 4 переменных, причем, так как в условии не задан тип чисел, то определить их нужно как действительные. Отсюда листинг:

var a,b,c,min:real;
begin
writeln('Enter 3 numbers separated by spaces');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('minimum of 3 numbers is',min:4:6);
readln;
end.

Эта версия программы занимает на порядок меньше оперативной памяти и работает гораздо быстрее предложенной выше.