Дан одномерный массив на 30 элементов, заполненный случайными числами от -100 до 100. требуется определить и вывести значение и номер максимального элемента. если таких элементов несколько, вывести все номера элементов, имеющих максимальное значение в одной строке, сами значения – в другой строке pascalabc.net
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.