Заранее . условие : определить наименьшее из чисел, введенных с клавиатуры. количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". нужно решить в паскале.
Public static double CosineBetweenVectors(double[] a, double[] b) { if (a.Length != b.Length || a.Length == 0) throw new Exception("не верные параметры");
double ab = 0; double a_length = 0; double b_length = 0; for (var i = 0; i < a.Length; i++) { ab += a[i] * b[i]; a_length = a[i] * a[i]; b_length = b[i] * b[i]; }
if (a_length * b_length == 0) throw new Exception("Нулевые вектора");
return ab / Math.Sqrt(a_length) / Math.Sqrt(b_length); }
program raf105;
var a, min: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
min:= 10000;
readln(a);
while a<>0 do
begin
if a<min
then min:= a;
readln(a);
end;
writeln('Наименьшее: ',min);
end.
Язык PascalABC