#include <iostream>
using namespace std;
int main() {
int n, k=0;
cin>>n;
int arr[n];
for (int i=0; i<n; ++i) {cin>>arr[i]; if (arr[i]%2==0&&(arr[i]<arr[k]||arr[k]%2==1)) k=i;}
cout<<arr[k];
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, 1, 1, (i, j)-> i + j).Println
end.
<h2>И это - всё !</h2>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ReadArrInteger(ReadInteger('n='));
var d:=ReadInteger('d=');
Writeln('Среднее ',a.Where(x->x>d).Average)
end.
<u><em>Тестовое решение:</em></u>
n= 8
6 3 -1 12 11 9 7 4
d= 8
Среднее 10.6666666666667
Ответ: 22
Объяснение: Умножаем кол-во раз сколько встречается буква в слове на количество символов сколько оно имеет (нули тоже считают)
Я решала сама и нигде не нашла ответа, если кто-нибудь сверится со мной было бы круто
2-10
3-7
4-4
5-6
6-1
7-?
8-3
9-8
10-2
11-9
