Задание 10 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 10. Напишите программу поиска значения наибольшего отрицательного элемента массива В[1..12]. Исходный массив заполните случайными целыми числами, принадлежащими...](/reshebniki/informatika/11/WBbosova/images1/sam4/2/10.png "Изображение ответа 10. Напишите программу поиска значения наибольшего отрицательного элемента массива В[1..12]. Исходный массив заполните случайными целыми числами, принадлежащими...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('ввод массива');
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
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
