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

Question

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

Comments

считай Nсчитай maxприсвой min значение maxпотом в цикле от 2 до n если а>max то max=aесли а<min то min=a

Answer 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 xend; 
writeln ('Разница между наибольшим и наименьшим числам равна' , max-min);
end.