Задание 7 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 7. Напишите программу. В одномерном массиве вещественных чисел C[1.JV] поменяйте местами наибольший и наименьший элементы, предположив, что таких элементов по одному....](/reshebniki/informatika/11/WBbosova/images1/sam4/3/7.png "Изображение ответа 7. Напишите программу. В одномерном массиве вещественных чисел C[1.JV] поменяйте местами наибольший и наименьший элементы, предположив, что таких элементов по одному....")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
7. Напишите программу. В одномерном массиве вещественных чисел C[1.JV] поменяйте местами наибольший и наименьший элементы, предположив, что таких элементов по одному. Проверьте работу программы на заданном массиве
С = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.
В заданном массиве С:
• наибольший элемент равен:......, его номер —......
• наименьший элемент равен:......, его номер —......
program s4_v3_7;
const
n = 11;
var
c: array[1..n] of real;
max, min: real;
i, imax, imin: integer;
begin
writeln('ввод массива');
//randomize;
for i := 1 to n do
//c[i] := random*20-10;
readln(c[i]);
max := c[1]; imax := 1;
min := c[1]; imin := 1;
for i := 1 to n do
begin
if c[i] > max then
begin max := c[i]; imax := i end;
if c[i] < min then
begin min := c[i]; imin := i end;
end;
c[imax] := min; c[imin] := max;
writeln('max=', max, ' imax=', imin);
writeln('min=', min, ' imin=', imax)
end.
• наибольший элемент равен: 63, его номер – 7;
• наименьший элемент равен: -310, его номер – 1.
В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры. Для изменения количества элементов измените n.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
