[Delphi] С клавиатуры вводятся целые положительные числа.Найти максимальное и минимальное число и их частное.

[neznayu kto]

С клавиатуры вводятся целые положительные числа.Найти максимальное и минимальное число и их частное.

[Alex11223]

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var n,i,a,min,max:integer;
begin
   Write('Count numer = '); Readln(n);
   min:=1;
   max:=0;
   For i:=1 to n do
   begin
      Write('Numer #',i,' = '); Readln(a);
      If i=1 then
      begin
         min:=a;
         max:=a;
      end else
      begin
         If min>a then
            min:=a;
         If max<a then
            max:=a;
      end;
   end;
   Writeln;
   Writeln('min = ',min);
   Writeln('max = ',max);
   Writeln('max/min = ',max/min:8:5);
   Readln;
end.