28-лыжным спортом
12-отличников, из них 10 отличников-спортсменов, следовательно,
30 учеников.
Органы чувств ..........................!!!!!!!!
Первый пример: 23,7 * 3,9[Enter] MS 71,25/2,3[Enter] M+ 78,9*0,8 [Enter]M- MR
Получится 60,288....
Второй пример: 659 MS 33,6*2,7 [Enter] M- 41/5,6 [Enter] M- MR -154
Получится 406,958 ....
Третий пример: 4*53,9 [Enter] -144 [Enter] MS *12,9 [Enter] +77,1 [Enter] MS 56/55 [Enter] M- MR
Получится 990,58
Четвертый пример: 50,49 / 0.7 [Enter] -63*8,2 [Enter] MS 126 M+ MR
Получится 200,854
Блин парился, парился так и не допёр как сделать то что я хотел, путь будет так.
<u>ВАРИАНТ</u> 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.
<u>ВАРИАНТ</u> 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.
<u>ВАРИАНТ </u>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;<span> if n>max then max:=n;
end;
</span>Writeln('Минимально число: ',min,' максимальное: ',max);
end.
<u>ВАРИАНТ </u>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.