Помогите с заданием пожалуйста!, Нужно построить масссив Опции

[Berkut007]

Вообщем, ребят, кто может помогите...вот задание:
Заполнить одномерный массив из 20 элементов целыми случайными числами от -20 до 40
Найти сумму положительных элементов
Найти наибольший и наименьший из положительных элементов
Найти количество элементов меньших по модулю 10
Сделать сортировку по убыванию

[renesko1]

Лови

Методы сортировок
решения: МАТРИЦЫ, МАССИВЫ. задачи

[renesko1]

Заполнение массива :

for i := 1 to 20 do 
mas[i] := random(61) - 20 ;

Cмма положительных элементов

summa := 0 ;
for i := 1 to 20 do
if mas[i] > 0 then summa := summa + mas[i] ; 

Добавлено через 5 мин.
Заполнить одномерный массив из 20 элементов целыми случайными числами от -20 до 40
Найти сумму положительных элементов
Найти наибольший и наименьший из положительных элементов
Найти количество элементов меньших по модулю 10


Это все, при желании, можно запихнуть в один цикл.

Сообщение отредактировано: renesko1 - 20.04.2008 18:21