Написать в ПаскальМассив из 15 элементов заполнить случайными целыми числами кратными трём в интервале от -45 до 50. Вывести пол
Написать в Паскаль Массив из 15 элементов заполнить случайными целыми числами кратными трём в интервале от -45 до 50. Вывести полученный массив на экран в строчку. Найти индекс наибольшего элемента массива.
Program massiv; var <span> mass = array [1..15] of integer;</span><span> i, max, n_max: integer;</span> begin<span> {заполнение массива} </span><span> for i:= 1 to 15 do mass[i] = (random(32)-15) * 3;</span><span> max := 0; </span><span> n_max := 0; </span><span> {нахождение максимума, вывод на экран} </span><span> for i:= 1 to 15 do</span><span> begin</span><span> if mass[i] > max then</span><span> begin</span><span> max := mass[i]; </span><span> n_max := i;</span><span> end;</span><span> write(mass[i], ' ');</span><span> end;</span><span> writeln('Индекс максимального: ', n_max); </span><span>end.</span>