Дан одномерный массив А из 10 целых чисел, найти максимальный элемент первой половины массива ОЧЕНЬ СРОЧНО!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! Среда ПаскальАВС
Дан одномерный массив А из 10 целых чисел, найти максимальный элемент первой половины массива
ОЧЕНЬ СРОЧНО!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!
Среда ПаскальАВС
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1200
const n = 10;
begin
var a:=ArrRandomInteger(n, 0, 100);
a.Println;
Println(a.Take(n div 2).Max);
end.
Гость// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(10,-99,99); a.Println;
Writeln('Результат: ',a[:5].Max)
end.
Тестовое решение:
6 -7 20 50 32 -26 -95 15 31 10
Результат: 50
Не нашли ответ?
Похожие вопросы