profile
Опубликовано 5 лет назад по предмету Информатика от molokoo

Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. Помогите(

  1. Ответ
    Ответ дан Levrat
    Var max,min,x: real;
          i:byte;
    Begin
    read(x);
    min:=x;
    max:=x;
         for i:=2 to 5 do
             begin
                read(x);
                if (x<min) then min:=x
                else 
                   if (x>max) then max:=x;
              end;
    writeln ('Max = ', max,' Min = ', min);
    end.
Самые новые вопросы