Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с заданием пожалуйста!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Berkut007
Вообщем, ребят, кто может помогите...вот задание:
Заполнить одномерный массив из 20 элементов целыми случайными числами от -20 до 40
Найти сумму положительных элементов
Найти наибольший и наименьший из положительных элементов
Найти количество элементов меньших по модулю 10
Сделать сортировку по убыванию smile.gif
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


Это все, при желании, можно запихнуть в один цикл.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.