Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите с заданием пожалуйста!

Автор: Berkut007 20.04.2008 15:26

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

Автор: renesko1 20.04.2008 17:22

Лови

http://forum.pascal.net.ru/index.php?showtopic=3065
http://forum.pascal.net.ru/index.php?showtopic=1212

Автор: renesko1 20.04.2008 18:18

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


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


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