одномерный массив delphi

[sofiya]

массив то составить легко а вот условия вопще не пойму помогите плиз.

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-1000,1000].
1. Найти сумму положительных элементов, значения которых состоят из двух цифр.
2.***** Найти количество тех элементов, значения которых по модулю превосходят 100 и кратны 5 и 10.
3.***** Найти номер первой пары соседних элементов с разными знаками, сумма которых меньше заданного числа.

[Stilet]

массив то составить легко

Ану покаж... Ато я новенький в программировании, самому интересно как профи работают

[Niro]

Держите
1)

 if (mas[i]>0) and (mas[i]/10>=1) and (mas[i]/10<10) then sum:=sum+1;

2)

 if (abs(mas[i])>100) and (mas[i] mod 5=0) and (mas[i] mod 10=0) then k:=k+1;

3)

 if (mas[i]*mas[i+1]<0) and (mas[i]+mas[i+1]<заданное число) then writeln(i);

[Grag]

Сообщение от Niro

Держите
1)

 if (mas[i]>0) and (mas[i]/10>=1) and (mas[i]/10<10) then sum:=sum+1;

Что за бред???

if (mas[i]>=10) and (mas[i]<=99) then sum:=sum+mas[i];

или так

if mas[i] in [10..99] then sum:=sum+mas[i]

Если элемент массива в промежутке 10..99, то он однозначно положительный!

[Niro]

Что за бред???

Согласен, не рационально, извращенно, но прикольно и сработает.
А уж использовать или нет это дело, того кто задавал вопросы