Задание 7 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 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(taskввод массиваtask);

//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]

begin min := c[i]; imin := i end;

end;

c[imax] := min; c[imin] := max;

writeln(taskmax=task, max, task imax=task, imin);

writeln(taskmin=task, min, task imin=task, imax)

end.

• наибольший элемент равен: 63, его номер – 7;

• наименьший элемент равен: -310, его номер – 1.

В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры. Для изменения количества элементов измените n.