?>
Имеется массив целых чисел размером n. заполнить его случайными числами в диапазоне от n1 до n2 (n1 и n2 вводятся с клавиатуры вывести его на экран. на место максимального элемента массива записать число 9999 получившийся массив вывести на экран. если максимальных элементов несколько, то все их заменить на 9999. решить ! нужно решить в pascal abc!
Ответы
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< a[i] then max: =a[i]; for i: =1 to n do beginif a[i]=max then a[i]: =9999; write(a[i],' '); end; readkey; end.