решить задачу по программированию на напишите программу Суммарный индекс
Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт
В параллельной вселенной Винни — не просто медведь, а медведь-айтишник. Летом он выбрал
жертву, которая не может программировать, и дал ей возможность получить сообщение с готовым
программным кодом от случайного человека из другой вселенной. Этот человек — Вы!
Для того, чтобы ему , Вам нужно вывести элемент массива a на позиции, равной сумме
позиций минимального и максимального элемента массива.
ему.
Формат входных данных
В первой строке вводится n (1 ⩽ n ⩽ 50) — количество чисел в массиве a.
Во второй строке вводится n чисел ai (0 ⩽ ai ⩽ 50) — элементы массива a.
Если максимальных или минимальных значений несколько, используйте первый из них.
Формат выходных данных
Выведите искомый элемент или строку «Vne massiva», если искомый индекс выходит за границы
массива.
Примеры
стандартный ввод стандартный вывод
5 2
1 5 2 4 3
3 Vne massiva
1 2 3
1 Vne massiva
5
Внимание! Если программа не работает, обновите версию!
begin
var A:=MatrGen(6,7,(i,j)->Sin(i+1)+Cos(3*(j+1)));
A.Println(10,6); Writeln(70*'-');
var B:=A.ElementsWithIndexes.Where(t->t[1].IsEven and t[2].IsEven)
.Select(t->t[0]).ToArray;
B.Println;
var m:=B.Where(t->t>0).DefaultIfEmpty.Average;
Writeln('Искомое среднее равно ',m);
var f:=OpenWrite('MyFile.txt');
for var i:=0 to A.RowCount-1 do begin
for var j:=0 to A.ColCount-1 do
Write(f,A[i,j],' ');
Writeln(f);
end;
Writeln(f);
for var i:=0 to B.Length-1 do Write(f,B[i],' ');
f.Close;
end.