4, так как углы комнаты находятся напротив друг друга.
<span>Место расположения: Екатеринбург
Дата открытия: 5 октября 2005 года
Материал, из которого он сделан: бетон
Описание внешнего вида: копия кнопок стандартной клавиатуры Windows, QWERTY-раскладка, в масштабе 1:30.
Графическое изображение: см вложение
Размеры: 16x4 м, высота 15 см
Автор: Анатолий Вяткин</span>
A=10
b=6
dec(a) => a=9
b:=9 mod 4 => b=1
d:=9-1 => d=8
Ответ: d=8
Лист защищен без пароля, чтобы случайно не повредить формулы.
Сами формулы можно увидеть в строке формул.
Для изменений формул снимите защиту без пароля.
Ответ:
program arrmax;
var
i, i1, i2, amax: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do // заполнение массива случайными числами
a [i] := Random (11);
for i := 1 to 10 do // вывод на экран элементов массива
Write (a [i], ' ');
amax := -1;
i1 := -1;
for i := 1 to 10 do // поиск первого максимального элемента
if a [i] > amax then begin
amax := a [i];
i1 := i;
end;
WriteLn;
WriteLn ('Индекс первого элемента массива с наибольшим значением = ', i1);
amax := -1;
i2 := -1;
for i := 10 downto 1 do // поиск последнего максимального элемента
if a [i] > amax then begin
amax := a [i];
i2 := i;
end;
WriteLn ('Индекс последнего элемента массива с наибольшим значением = ', i2);
ReadLn;
end.
Объяснение:
