Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/21: Рейтинг темы: голосов - 21, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.10.2016
Сообщений: 5

Найти наибольший из отрицательных элементов массива

01.12.2016, 16:34. Показов 3985. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан целочисленный массив заданный датчиком случайных чисел в интервале (90), найдите наибольший из отрицательных элементов массива
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.12.2016, 16:34
Ответы с готовыми решениями:

Найти наибольший из отрицательных элементов последовательности
Вводное: Дана последовательность чисел a1, a2, a3, … . Количество элементов в последовательности заранее неизвестно. Написать программу с...

Найти наибольший среди отрицательных элиментов массива С(15)
Найти наибольший среди отрицательных элиментов массива С(15) Uses crt; Var C: Array of integer; i: integer; Begin; ...

Найти наибольший среди отрицательных элементов матрицы.
Вообщем... Учусь я потихоньку в любимом техникуме, и нифига не понимаю паскать. Решите пожалуйста задачку, сесия грядёт, а сам я ничего не...

2
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
01.12.2016, 16:59
Лучший ответ Сообщение было отмечено YelenaSolnceva как решение

Решение

Если имелся в виду интервал [-90, 90], то
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  n = 10;
  
var
  x: array [1..n] of integer;
  i, max: integer;
  
begin
  Randomize;
  max := -90;
  for i := 1 to n do
  begin
    x[i] := -90 + Random(181);
    Write(x[i], ' ');
    if (x[i] < 0) and (x[i] > max) then
      max := x[i]
  end;
  WriteLn('Наибольший из отрицательных = ', max);
  ReadLn
end.
1
0 / 0 / 0
Регистрация: 20.10.2016
Сообщений: 5
01.12.2016, 17:04  [ТС]
СПАСИБО БОЛЬШОЕ
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.12.2016, 17:04
Помогаю со студенческими работами здесь

Найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов
дан масcив в котором N чисел. найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов

Найти сумму всех элементов массива, количество положительных и отрицательных чисел и среднеарифметическое отрицательных чисел
заранее всем спасибо буду признателен за любую помощь

Найти кол-во отрицательных элементов массива предшедствующих наименьшему элементу массива.
Дан массив Х(N) Найти кол-во отрицательных элементов массива предшедствующих наименьшему элементу массива.

Найти произведение количества отрицательных элементов и количество положительных элементов массива
Прошу помощи. Задание: Задан одномерный, целочисленный массив A(n), (n&lt;=40).Найти произведение количества отрицательных элементов и...

Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов
Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов (генерируются случайные числа от -10 до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru