Имеется массив целых чисел размером…

Question

Имеется массив целых чисел размером N. Заполнить его случайными числами в диапазоне от n1 до n2 (n1 и n2 вводятся с клавиатуры). Вывести его на экран. На место максимального элемента массива записать число 9999 получившийся массив вывести на экран. Если максимальных элементов несколько, то все их заменить на 9999. ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! НУЖНО РЕШИТЬ В PASCAL ABC!

Answer 1

76

vitalas23

15 апреля 2023

program noname; uses crt; vara: array[1… 10000] of integer; i,n,max,n1,n2: integer; beginclrscr; writeln ('введи размерность массива'); readln (n); write ('n1='); readln (n1); write ('n2='); readln (n2); for i: =1 to n do beginrandomize; a[i]: =random (n2-n1+1)+n1; write (a[i],'); end; writeln; max: =a[1]; for i: =2 to n doif max

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: