Вычислить сумму всех положительных чисел одномерного массива (программа на алгоритмическом языке)

[ВиталийА]

Дан массив MOR, состоящий из 90 элементов, на интервале от -50 до 80. Вычислить сумму всех положительных ччисел. Массив и резильтат вывести на экран.
Помогите пожалуйста)

[Вадим Мошев]

Сколько сможете заплатить за решение этой задачи?

[ВиталийА]

Без цены, пожалуйста помогите, алгоритмический язык

[Вадим Мошев]

Получаем массив:

for i:=1 to 90 do
	a[i]:=random(131) - 50;

Находим сумму:

{заголовок цикла тот же}	
if a[i] > 0
	 then
		s:=s+a[i];

Папочка советов:
1. Вам надо будет инициализировать генератор случайных чисел процедурой Randomize
2. Для нахождения суммы вам надо переменную s обнулить.

Думаю, что помог, остальное пишите сами.

[ВиталийА]

но ведь не таким языком надо
Сама программа пишется в такой формЕ;
Алг
начцелтаб.... ввод, вывод и тд

[rrrFer]

p([],0).
p([H|T],S):-H>0,p(T,SS),S=S+H;p(T,S).

[ВиталийА]

Вот в таком виде мне надо!
Посчитать сумму элементов. Массив из 10 элементов.
Алг
Нач целтаб АM[1;10]
Цел С
Нц для С от 1 до 10
Ввод АM [С]
Кц
S:=0

Нц для С от 1 до 10

S:=S+AM[C]
КЦ
Вывод нс
Нц для С от 1 до 10
Вывод AM [C]
Кц
Вывод нс, “ответ…”, S
кон

[whatever]

Сообщение от ВиталийА

Вот в таком виде мне надо!
Посчитать сумму элементов. Массив из 10 элементов.
Алг
Нач целтаб АM[1;10]
Цел С
Нц для С от 1 до 10
Ввод АM [С]
Кц
S:=0

Нц для С от 1 до 10

S:=S+AM[C]
КЦ
Вывод нс
Нц для С от 1 до 10
Вывод AM [C]
Кц
Вывод нс, “ответ…”, S
кон

А вот я, похоже, сейчас понял, как придумали 1с...

[ВиталийА]

ага, помогите!