Среди вводимых через х 10 чисел нужно найти максимальное и минимальное числа. написать программы в трех вариантах
Среди вводимых через х 10 чисел нужно найти максимальное и минимальное числа. написать программы в трех вариантах
Гость
Ответ(ы) на вопрос:
ГостьБлин парился, парился так и не допёр как сделать то что я хотел, путь будет так.
ВАРИАНТ 1:
Var i:integer; n,m,max,min:real;
Begin
m:=10;
min:=999999999999999999999999999999999999999999;
for i:=1 to 10 do begin
Write('Введите числа (осталось ',m,'чисел):'); readln(n);
m:=m-1;
if n>max then max:=n
if nmax then max:=n;
m:=m-1;
Until(m=0);
Writeln('Минимально число: ',min,' максимальное: ',max);
end.
ВАРИАНТ 3:
Var i,m:integer; min,max,n:real;
Begin
m:=9;
Write('Введите 10чисел: '); readln(n);
min:=n;
while m<>0 do begin
write('Введите ',m,'чисел: ');readln(n);
m:=m-1;
if nmax then max:=n;
end;
Writeln('Минимально число: ',min,' максимальное: ',max);
end.
ВАРИАНТ 4:
Var n1;n2,n3,n4,n5,n6,n7,n8,n9,n10:real;
Begin
Write('Введите 10чисел:'); readln(n);
max:=n;
min:=n;
Write('Введите 9чисел:'); readln(n);
if n>max then max:=n;
if nmax then max:=n;
if nmax then max:=n;
if nmax then max:=n;
if nmax then max:=n;
if nmax then max:=n;
if nmax then max:=n;
if nmax then max:=n;
if nmax then max:=n;
if n
Не нашли ответ?
Похожие вопросы