Вопрос по информатике:
Сгенерировать массив случайных чисел. Найти наибольшее и наименьшее число в массиве. Поменять местами эти числа и вывести массив заново
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.01.2018 15:15
- Информатика
- remove_red_eye 7158
- thumb_up 5
Ответы и объяснения 1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a: array of integer;
i, n, min, max, imax, imin: integer;
begin
write('Число элементов в массиве ');readln(n);
setlength(a, n);
min := maxint;max := -maxint;
for i := 0 to n - 1 do
begin
a[i] := random(101) - 50;
if a[i] > max then begin
max := a[i];imax := i;
end;
if a[i] < min then begin
min := a[i];imin := i;
end;
write(a[i]:4);
end;
writeln;
writeln('min = ',min,' max = ',max);
//меняем местами max и min и выводим массив
swap(a[imax], a[imin]);
for i := 0 to n - 1 do write(a[i]:4);
end.
Тестовое решение:
Число элементов в массиве 10
-19 -14 -44 -3 -4 -46 -1 -39 13 32
min = -46 max = 32
-19 -14 -44 -3 -4 32 -1 -39 13 -46
- 16.01.2018 00:04
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.