Задачка в Паскале, помогите решить пожалуйста!!
Pascal
Помогите пожалуйста решить задачку через массив, я плохо понимаю массивы.
Даны числа а1,...,a50. Получить сумму тех чисел данной последовательности, которые
a)Кратны 5;
б)нечетны и отрицательны;
в)удовлетворяют условию мод |ai|< i^2
И эти все цифры должны быть в одной программе.
Pascal
Помогите пожалуйста решить задачку через массив, я плохо понимаю массивы.
Даны числа а1,...,a50. Получить сумму тех чисел данной последовательности, которые
a)Кратны 5;
б)нечетны и отрицательны;
в)удовлетворяют условию мод |ai|< i^2
И эти все цифры должны быть в одной программе.
More Questions From This User See All
Answers & Comments
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)
Then b:=b+a[i];
If abs(a[i])Then c:=c+a[i];
End;
Writeln(sum,' ',b,' ',c);
Последнее условие это модуль а[i] меньше квадрата i?