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

По результатам работы программы заполните таблицу:
В[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(‘ввод массива’);
randomize;
for i := 1 to n do
begin
b[i] := random(20) — 10;
writeln(‘b[‘, i, ‘]=’, b[i])
end;
for i := 1 to n do
if (b[i] < 0) and (b[i] > otmax) then otmax := b[i];
writeln(‘otmax=’, otmax)
end.
Наибольший отрицательный элемент равен: -6

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

program s4_v2_10;
const
  n = 12;
var
  b: array[1..n] of integer;
  i, otmax: integer;
begin
  otmax := -100; { заведомо меньше любого допустимого }
  writeln(‘ввод массива’);
  randomize;
  for i := 1 to n do
  begin
    b[i] := random(20) — 10;
    writeln(‘b[‘, i, ‘]=’, b[i])
  end;
  for i := 1 to n do
    if (b[i] < 0) and (b[i] > otmax) then otmax := b[i];
  writeln(‘otmax=’, otmax)
end.

По результатам работы программы получаем значения массива:

Среди отрицательных элементов $$-6, -7, -8, -10, -7$$ наибольший равен $$-6$$.

Ответ

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