Дан одномерный массив на 30 элементов, заполненный - вопрос №19753730 от yannappp1 07.06.2020 23:54

Question

Информатика: Дан одномерный массив на 30 элементов, заполненный случайными числами от -100 до 100. требуется определить и вывести значение и номер максимального элемента. если таких элементов несколько, вывести все номера элементов, имеющих максимальное значение в одной строке, сами значения – в другой строке pascalabc.net

yannappp1 · Answer

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.