Найти наибольший элемент числовой последовательности. В паскале с помощью массива даю 20б.
Answers & Comments
wwe7// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var im:=a.IndexMax; Writeln('Номер максимального элемента- ',im+1,', значение ',a[im]); end.
Пример n= 13 11 -13 -11 46 24 -10 34 -22 -8 -1 31 -34 -4 Номер максимального элемента- 4, значение 46
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var im:=a.IndexMax;
Writeln('Номер максимального элемента- ',im+1,', значение ',a[im]);
end.
Пример
n= 13
11 -13 -11 46 24 -10 34 -22 -8 -1 31 -34 -4
Номер максимального элемента- 4, значение 46