Помогите пжлст.
Даны натуральные число n и целые числа a1, a2,...,an. Верно ли, что максимальное из чисел ai превышает минимальное не более чем на 25
Даны натуральные число n и целые числа a1, a2,...,an. Верно ли, что максимальное из чисел ai превышает минимальное не более чем на 25
More Questions From This User See All
Answers & Comments
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<min then min:=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