Вопрос по информатике:
Имеется массив целых чисел размером N. Заполнить его случайными числами в диапазоне от n1 до n2 (n1 и n2 вводятся с клавиатуры). Вывести его на экран. На место максимального элемента массива записать число 9999 получившийся массив вывести на экран. Если максимальных элементов несколько, то все их заменить на 9999. ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! НУЖНО РЕШИТЬ В PASCAL ABC!
- 06.11.2017 06:12
- Информатика
- remove_red_eye 15563
- thumb_up 66
Ответы и объяснения 1
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
if a[i]=max then a[i]:=9999;
write(a[i],' ');
end;
readkey;
end.
- 07.11.2017 11:29
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.