• Последовательно вводятся N целых чисел. Найти разницу между наименьшим и наибольшем. 
    Помогите, пожалуйста, написать программу для Pascal.

Ответы 1

  • program qq;var n,i:byte;       x:integer;       min,max : integer;begin  max = -32 768; min = 32 767; writeln ('Введите сколько чисел нужно ввести'); readln (n);for i:= 1 to n do begin   writeln ('Введите' , i , '-ое число');  readln (x); if x>max then max:=x ;if x<min then x : = min;end; writeln ('Разница между наибольшим и наименьшим числам равна' , max-min);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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