Блин парился, парился так и не допёр как сделать то что я хотел, путь будет так. ВАРИАНТ 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 n<min then min:=n; end; writeln('максимальное число: ',max,' минимальное: ',min);
End.
ВАРИАНТ 2: Var i,m:integer; n,max,min:real; Begin m:=9; Write('Введите 10чисел: '); readln(n); min:=n; Repeat Write('Введите ',m,'чисел: '); readln(n); if n<min then min:=n; if n>max 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 n<min then min:=n; if n>max 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 n<min then min:n; Write('Введите 8чисел:'); readln(n); if n>max then max:=n; if n<min then min:n; Write('Введите 7чисел:'); readln(n); if n>max then max:=n; if n<min then min:n; Write('Введите 6чисел:'); readln(n); if n>max then max:=n; if n<min then min:n; Write('Введите 5чисел:'); readln(n); if n>max then max:=n; if n<min then min:n; Write('Введите 4числа:'); readln(n); if n>max then max:=n; if n<min then min:n; Write('Введите 3числа:'); readln(n); if n>max then max:=n; if n<min then min:n; Write('Введите 2числа:'); readln(n); if n>max then max:=n; if n<min then min:n; Write('Введите 1число:'); readln(n); if n>max then max:=n; if n<min then min:n; Writeln('Минимально число: ',min,' максимальное: ',max); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
