Нечетные числа на нечетном месте.

[OFK]

var a :array of integer := new integer[10](1, 2, 3, 4, 5, 8, 7, 8, 8, 8); // 3
begin
assign(input, 'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
  var evens := a.Where((v, i) ->not odd(i));
  WriteFormat('max = {0}, count = {1}', evens.Max(), evens.Count(v -> v = evens.Max()));
close(output);
end.

Данная программа выполняет поиск четных чисел на нечетных местах.Нужно переделать так чтобы искала нечетные числа на нечетных местах и добавить ввод с клавиатуры.Сильно не разбираюсь в паскаль,совсем недавно начал изучать.

[Вадим Мошев]

Хм, это что за Паскаль такой:

 var evens := a.Where((v, i) ->not odd(i));

WriteFormat('max = {0}, count = {1}', evens.Max(), evens.Count(v -> v = evens.Max()))

??

[Serge_Bliznykov]

Это не совсем Паскаль. Это PascalABC.NET.
Это раз.

второе, я совсем не уверен, что программа делает именно то, что Вы сказали.
я бы сказал, что программа ищет максимальное значение, стоящее на чётных местах и количество значений, стоящих на чётных местах и равных максимальному.
У меня на PascalABC.NET 2.2 сборка 776(02.07.2014) Ваш код вообще не запустился.

[OFK]

Да,да забыл сказать что ищет максимальное число.Но мне б абсолютно любую программу чтоб искало максимальное нечетное на нечетных местах и их количество.

Сообщение от Serge_Bliznykov

Это не совсем Паскаль. Это PascalABC.NET.
Это раз.

второе, я совсем не уверен, что программа делает именно то, что Вы сказали.
я бы сказал, что программа ищет максимальное значение, стоящее на чётных местах и количество значений, стоящих на чётных местах и равных максимальному.
У меня на PascalABC.NET 2.2 сборка 776(02.07.2014) Ваш код вообще не запустился.

Возможно,может быть просто значений выводятся в файл

[Serge_Bliznykov]

Нет, в 2.2 ваш код не компилируется, видимо, LINQ не полностью поддерживается.
поэтому на

evens.Count(v -> v = evens.Max())

выдавалась ошибка:
err2.jpg

А Вам именно с LINQ нужно решение?

[Serge_Bliznykov]

попробуйте программу:

var a :array of integer := new integer[10](1, 21, 31, 17, 35, 43, 7, 8, 18, 12);
begin
  var evens := a.Where((v, i) ->(odd(i) and odd(v)));
  evens.Println;
end.

рассмотрите, какие она выдаёт результаты.
Подумайте, почему.
Обратите внимание, что задача имеет двухсмысленность в связи с тем, что неизвестно, с какого индекса нумеруются элементы массива.

В данном решении (коде) принята нумерация с нуля.

т.е.
a[0] = 1
a[1] = 21
a[2] = 31
a[3] = 17
и т.д.

скажите, какие тут "нечетные числа на нечетных местах" ?