Проверьте паскаль, где ошибка??? Не понимаю, как сумму сделать var a:array [1..6] of...

Question

Проверьте паскаль, где ошибка???
Не понимаю, как сумму сделать
var a:array [1..6] of integer;
i:integer;
sum:integer;
begin
sum:=0;
for i:=1 to 6 do
begin
readln(a[ i ]);
sum:=sum+a[ i ];
end;
if (a[i]>9) and (a[i]<100) and (a[i]<0) and (a[i] mod 5=0) then writeln(sum);<br> end.

Comments

Напишите, пожалуйста, сумму не через SUM

---

if (a[i]>9) and (a[i]<100) and (a[i]<0) and (a[i] mod 5=0) - что значит это условие? :\

---

ДАН МАССИВ ИЗ 6 ЭЛЕМЕНТОВ. НАЙТИ СУММУ ДВУХЗНАЧНЫХ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ МАССИВА, КОТОРЫЕ КРАТНЫ 5. ГАРАНИТРУЕТСЯ, ЧТО В МАССИВЕ ТАКИЕ ЭЛЕМЕНТЫ ЕСТЬ.

---

for i:=1 to 6 dobeginreadln(a[ i ]);if (a[i]>9) and (a[i]<100) and (a[i]<0) and (a[i] mod 5=0) then sum:=sum+a[ i ];end; writeln(sum); end.

---

Fikort, хоть бы на условие посмотрел. Оно выбирает числа, которые должны больше 9 ии отрицательными !

---

ОЙ, ТОЧНО, ПОМОГИ, ПОЖАЛУЙСТА

Answer 1

Решение вложено. 
------------------------------------------- 

---

Comments

Спасибоо)