Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите пжлст.
Даны натуральные число n и целые числа a1, a2,...,an. Верно ли, что максимальное из чисел ai превышает минимальное не более чем на 25

Ответ оставил Гость

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,min,max:integer;
begin
  min:=maxint; max:=-maxint;
  write(Число элементов последовательности );
  readln(n);
  for i:=1 to n do begin
    a:=random(61)-30;
    if a>max then max:=a;
    if a    write(a:4);
  end;
  writeln;
  if max<=(min+25) then writeln (максимальное ,max , превышает минимальное ,min, не более чем на 25)
  else writeln (максимальное ,max , превышает минимальное ,min, более чем на 25);
 end.

Тест №1
Число элементов последовательности 3
  -9   2  10
максимальное 10 превышает минимальное -9 не более чем на 25

Тест №2
Число элементов последовательности 5
  10 -17  13  26  -2
максимальное 26 превышает минимальное -17 более чем на 25