Question

Дан одномерный массив на 30 элементов, заполненный случайными числами от -100 до 100. Требуется определить и вывести значение и номер максимального элемента. Если таких элементов несколько, вывести все номера элементов, имеющих максимальное значение в одной строке, сами значения – в другой строке
PascalABC.Net

Answer 1

const

 n = 30;

var

 mx, i: integer;

 a: array [1..n] of integer;

begin

 for i:=1 to n do

   readln(a[i]);

 mx := -101;

 for i:=1 to n do

   if a[i] > mx then

     mx := a[i];

 for i:=1 to n do

   if a[i] = mx then

     write(i, ' ');

 writeln();

 write(mx)

end.