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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

9. Напишите программу поиска значения наибольшего элемента массива В[1..N]. Проверьте работу программы на заданном массиве В = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.

Наибольший элемент равен:............................

program s4_v2_9;

const

n = 11;

var

b: array[1..n] of real;

i: integer;

max: real;

begin

writeln(taskввод массиваtask);

//randomize;

for i := 1 to n do

begin

readln(b[i]);

//b[i] := random * 20 - 10;

//writeln(taskb[task, i, task]=task, b[i])

end;

max := b[1];

for i := 2 to n do

if b[i] > max then max := b[i];

writeln(taskmax=task, max);

end.

Наибольший элемент равен: 63

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