Вопрос по информатике:
Заполнить массив случайными целыми числами. Заменить элементы массива, равные минимальному, числом 99. Очень надо. Пожалуйста!!!
Пожаловаться
- 27.01.2015 08:48
- Информатика
- remove_red_eye 10830
- thumb_up 31
Ответы и объяснения 1
Const n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]
for i:=1 to n do
if a[i]=min then a[i]:=99;
writeln('Полученный массив:');
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
Исходный массив:
5 13 9 13 19 3 20 5 9 3
min = 3
Полученный массив:
5 13 9 13 19 99 20 5 9 99
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]
for i:=1 to n do
if a[i]=min then a[i]:=99;
writeln('Полученный массив:');
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
Исходный массив:
5 13 9 13 19 3 20 5 9 3
min = 3
Полученный массив:
5 13 9 13 19 99 20 5 9 99
Пожаловаться
- 28.01.2015 01:30
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы