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

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

10. Напишите программу поиска значения наибольшего отрицательного элемента массива В[1..12]. Исходный массив заполните случайными целыми числами, принадлежащими промежутку [-10; 10).

По результатам работы программы заполните таблицу:

В[1] = В[4] = В[7] = В[10] =

В[2] = В[5] = В[8] = В[11] =

В[3] = В[6] = В[9] = В[12] =

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

program s4_v2_10;

const

n = 12;

var

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

i, otmax: integer;

begin

otmax := -100;//заведомо меньше любого допустимого

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

randomize;

for i := 1 to n do

begin

b[i] := random(20) - 10;

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

end;

for i := 1 to n do

if (b[i] otmax) then otmax := b[i];

writeln(taskotmax=task, otmax)

end.

Наибольший отрицательный элемент равен: -6