Массивы - Pascal - Ответ 5353102

program test1;
var a:array[1..255] of integer;
i,max,min,k,n:integer;
begin
randomize; {Функция "Разнообразия" случайных значений}
writeln('Введите размерность массива');
readln(n); {вводим размерность массива}
for i:=1 to n do
a[i]:=random(100)-50; {Заполняем массив случайными числами}
min:=a[1]; max:=a[1]; {Присваиваем начальное значение максимуму и минимуму}
for i:=1 to n do begin
if a[i]>max then max:=a[i]; {Если какой-то элемент массива больше, чем максимум, то он и становится максимумом}
if a[i]<min then min:=a[i]; {Если какой-то элемент массива меньше, чем минимум, то он и становится минимумом}
end;
k:=max-min; {рассчитываем разность между максимумом и минимумом}
writeln('Максимум',' ',max,' ','Минимум',' ',min);
writeln('Разница',' ',k); {Выводим разницу}
readln;
end.