Вопрос по информатике:
Составьте программу, которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 100 , затем меняет местами максимальный и минимальный элементы. выведите на экран исходный и полученый массивы
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.01.2016 10:01
- Информатика
- remove_red_eye 19865
- thumb_up 15
Ответы и объяснения 2
Var i,min,max:integer;
a:array[1..10] of integer;
begin
min:=100;
max:=0;
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
if (a[i] > max) then max:=a[i]; if (a[i] < min) then min:=a[i];
end;
writeln('');
for i:=1 to 10 do
begin
if a[i] = max then a[i]:=min else if a[i] = min then a[i]:=max;
write(a[i],' ');end;
end.
- 02.01.2016 20:16
- thumb_up 48
Const
n = 10;
var
i, min, max: integer;
a: array[1..n] of integer;
begin
min := 1; max := 1;
for i := 1 to n do
begin
a[i] := random(101);
write(a[i]:4);
if (a[i] > a[max]) then
max := i;
if (a[i] < a[min]) then
min := i;
end;
i := a[max];
a[max] := a[min];
a[min] := i;
writeln();
for i := 1 to n do
write(a[i]:4);
end.
- 03.01.2016 03:49
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.