Опубликовано 03.01.2018 по предмету Информатика от Гость

Среди вводимых через х 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 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 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 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 nWrite(Введите 8чисел:); readln(n);
if n>max then max:=n;
if nWrite(Введите 7чисел:); readln(n);
if n>max then max:=n;
if nWrite(Введите 6чисел:); readln(n);
if n>max then max:=n;
if nWrite(Введите 5чисел:); readln(n);
if n>max then max:=n;
if nWrite(Введите 4числа:); readln(n);
if n>max then max:=n;
if nWrite(Введите 3числа:); readln(n);
if n>max then max:=n;
if nWrite(Введите 2числа:); readln(n);
if n>max then max:=n;
if nWrite(Введите 1число:); readln(n);
if n>max then max:=n;
if nWriteln(Минимально число: ,min, максимальное: ,max);
end.