хотя бы как это решать?? Данные с главного терминала управления показывают, что в текущем состоянии Газодобывающая станция переработать газ только из трех скважин.
Обычно программа диагностики позволяет определить 3 из 25 скважин с наибольшим давлением. Однако сейчас программа повреждена. Все, на что она сейчас. сравнительный анализ давления в любых пяти скважинах.
При этом программа скрывает конкретные значения, а показывает лишь давление в них относительно друг друга. Заряда резервных генераторов хватит на 7 таких операций. После этого нужно будет определить 3 скважины с максимальным давлением и запустить их.
Уже проведено б диагностических запусков, которые дают тебе информацию о сравнительном давлении в скважинах. Определи, какую группу скважин необходимо проверить в последнем, седьмом запуске, чтобы найти 3 скважины с наибольшим давлением!
ОПРЕДЕЛИ, КАКУЮ ГРУППУ СКВАЖИН НУЖНО ПРОВЕРИТЬ В СЕДЬМОМ ЗАПУСКЕ
1)Основные составляющие персонального компьюетра: системный блок и устройства ввода-вывода информации. К устройствам ввода-вывода информации относятся клавиатура, мышь, монитор, принтер, сканер, видеокамера, динамики и прочие подобные устройства.Системный блок состоит из обязательных устройств: материнская плата, жесткий диск, процессор, оперативная память, блок питания, видеокарта, системный динамик. К необязательным составляющим системного блока можно отнести звуковую карту, сетевую карту, floppy, CD и DWD-приводы, картридеры и прочие навороты.
Вариант для вывода элементов массива в 8 позициях:
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Select(t->Format('{0,8}',t)).Println(''); a:=a.Reverse.ToArray; a.Select(t->Format('{0,8}',t)).Println('') end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.Reverse.ToArray; a.Println
end.
Пример
n= 13
1 80 -54 36 84 -43 -88 43 36 9 -14 -19 -38
-38 -19 -14 9 36 43 -88 -43 84 36 -54 80 1
Вариант для вывода элементов массива в 8 позициях:
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Select(t->Format('{0,8}',t)).Println('');
a:=a.Reverse.ToArray;
a.Select(t->Format('{0,8}',t)).Println('')
end.