Question

Составить программу в Паскале для обработки одномерного массива из 15 чисел. Значения элементов массива задать с клавиатуры самостоятельно. Найти наибольший элемент массива и его номер.

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Напишем программу на языке программирования PascalABC.NET:

##

var a: array of integer := ReadArrInteger(15);

a.Max.Print;

a.IndexMax.Print;

Задание выполнено!

Answer 2

Ответ:

var  

   a: array [0..14] of integer;        

   maxNum, i: integer;

begin

for i := 0 to 14 do  

   readln(a[i]);

   

maxNum := a[0];

for i := 0 to 14 do  

   begin

   if maxNum < a[i] then

       maxNum := a[i];

   end;    

   

writeln(maxNum);  

end.