Одномерные массивы

[kazzz]

Дан одномерный массив A1, A2, ... , An, состоящий из вещественных чисел. Найти максимальное значение всех отрицательных чисел, хранимых в данном массиве.

Подскажите код пожалуйста, желательно с краткими пояснениями к действиям программы.

Delphi

[Sasha_Smirnov]

Прокрутите эту страницу вниз — найдёте подсказок целую таблицу!

[Lokos]

Сообщение от kazzz

Дан одномерный массив A1, A2, ... , An, состоящий из вещественных чисел. Найти максимальное значение всех отрицательных чисел, хранимых в данном массиве.

Подскажите код пожалуйста, желательно с краткими пояснениями к действиям программы.

может максемальное значение из всех отрицательных чисел.

[kazzz]

Сообщение от Lokos

может максемальное значение из всех отрицательных чисел.

Нет, написано точно.

[Sasha_Smirnov]

Тогда это -0 (минус ноль).

Подсказка была бы подробней, укажи вы язык. Да и задание надо бы уточнить.

[Utkin]

Вот, например:

# Формируем массив 
a=Array.new[20]

# Заполняем его случайными числами  
for i in 0..20
  a[i]=rand(100.0)-50.0
end

# Ведем подсчет отрицательных
neg=0
for i in 0..20
  if a[i]<0 then neg=neg+a[i]
end

# Выведем результат на экран
puts 'Sum negative: '+neg.to_s