Создать одномерный массив из 16 элементов. Вычислить максимальное значение из элементов, имеющих четные индексы.
Ответы на вопрос
Ответил danulpopov
0
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(16);a.Println;
Writeln(a.Where((v,i) -> (i+1).isEven).Max);
end.
Пример:
98 88 1 68 45 8 66 97 67 23 94 49 22 83 16 93
97
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(16);a.Println;
Writeln(a.Where((v,i) -> (i+1).isEven).Max);
end.
Пример:
98 88 1 68 45 8 66 97 67 23 94 49 22 83 16 93
97
Ответил sen1pai
0
А можно на старый паскаль прогу?
Ответил danulpopov
0
В условии язык программирования вообще не указан, сейчас переписывать из-за некорректного условия?
Новые вопросы