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

Question

Информатика

Филиппина

9 мая, 19:21

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

+3

Ответы (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.