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