дан массив из пятнадцати элементов заполненный целыми числами в диапазоне от - 20 до 60. верно ли что максимальный элемент больше минимального более чем в два раза?

Question

Информатика

Ардальон

13 февраля, 14:07

дан массив из пятнадцати элементов заполненный целыми числами в диапазоне от - 20 до 60. верно ли что максимальный элемент больше минимального более чем в два раза?

+1

Ответы (1)

Знаете ответ на вопрос?

Варнава · Answer 1

type diapazon=-20 ... 60;

var a: array [1 ... 15] of diapazon;

i, max, min: integer;

begin

max:=1;

min:=1;

for i:=1 to 15 do

begin

readln (a[i]) ;

if a[i]>max then max:=a[i];

if a[i]
end;

if (max/min) > 2 then writeln ('Верно') else writeln ('Неверно') ;

end.