Задать вопрос Регистрация
Помочь другим

  • сделать программу в паскале

    ввести 10 чисел и из них найти минимум и максимум

Ответы 1

  • var a:array[0..9] of integer;

          i,min,max:integer;

    begin

     for i:=0 to 9 do readln(a[i]);

     min:=a[0];

      for i:=0 to 9 do if(min>a[i]) then min:=a[i];

     max:=a[0];

    for i:=0 to 9 do if(max<a[i]) then max:=a[i];

    writeln(max,' ', min);

    readln;

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years