Имеется массив целых чисел размером N. Заполнить его случайными числами в диапазоне от n1 до n2 (n1 и n2 вводятся с клавиатуры). Вывести его на экран. На место максимального элемента массива записать число 9999 получившийся мас...
Имеется массив целых чисел размером N. Заполнить его случайными числами в диапазоне от n1 до n2 (n1 и n2 вводятся с клавиатуры). Вывести его на экран. На место максимального элемента массива записать число 9999 получившийся массив вывести на экран. Если максимальных элементов несколько, то все их заменить на 9999. ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! НУЖНО РЕШИТЬ В PASCAL ABC!
Гость
Ответ(ы) на вопрос:
Гостьprogram noname;
uses crt;
var
a:array[1..10000] of integer;
i,n,max,n1,n2:integer;
begin
clrscr;
writeln('введи размерность массива');
readln(n);
write('n1='); readln(n1);
write('n2='); readln(n2);
for i:=1 to n do begin
randomize;
a[i]:=random(n2-n1+1)+n1;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if max
Не нашли ответ?
Похожие вопросы