Задачка в Паскале, помогите решить пожалуйста!! Pascal Помогите пожалуйста решить задачку...

Question

Задачка в Паскале, помогите решить пожалуйста!!

Pascal
Помогите пожалуйста решить задачку через массив, я плохо понимаю массивы.
Даны числа а1,...,a50. Получить сумму тех чисел данной последовательности, которые
a)Кратны 5;
б)нечетны и отрицательны;
в)удовлетворяют условию мод |ai|< i^2

И эти все цифры должны быть в одной программе.

Answer 1

После выода данных в массив:
Sum:=0;
B:=0;
C:=0;
For i:=1 to 50 do
Begin
If a[i] mod 5=0
Then sum:=sum+a[i];
If (a[i] mod 2<>0) and (a[i]<0)<br>Then b:=b+a[i];
If abs(a[i])Then c:=c+a[i];
End;
Writeln(sum,' ',b,' ',c);

Последнее условие это модуль а[i] меньше квадрата i?

Comments

там a с нижним индексом i