Delphi задачки массив

[MrMorozko]

Всем доброго времени суток)
Прошу помочь в реализации двух программ данных в этих задачах:

Найти количество тех элементов, значения которых по модулю превосходят 100 и кратны 5 и 10.

Найти номер первой пары соседних элементов с разными знаками, сумма которых меньше заданного числа.
Заранеее спасибо

[rubius2008]

У самого есть какие-либо наработки?

[MrMorozko]

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

У самого есть какие-либо наработки?

Пока нет через пол часа будут ,это просто 2ве задачки из 8

var
a : array [0..50] of integer;
n, i, sum : integer;
begin
n := StrToInt(Edit1.Text);
Label2.Caption := '';
sum := 0;
for i := 0 to n do
 begin
  a[i] := Round(Sin(Random(-1000))*1000);
  if a[i] div 100 = 0 then
   sum := sum + a[i];
  Label2.Caption := Label2.Caption + IntToStr(a[i]) + '; ';
 end;
Label3.Caption := IntToStr(sum);
end;

Как вывести сумму только положительных элементов)?

[Mad_Cat]

 if a[i] div 100 = 0 then

замени на

 if a[i] >0 then

[MrMorozko]

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

 if a[i] div 100 = 0 then

замени на

 if a[i] >0 then

Задача в том что бы вывести сумму положительных элементов, значения которых состоят из двух цифр, а когда пишу (a[i] div 100 = 0) > 0 то он ругаеться на тип, у меня тип Integer

Первую азадчку решил...разобрался...вот вторую немогу до конца

var
a : array [0..50] of integer;
n, i, c : integer;
begin
n := StrToInt(Edit1.Text);
c := StrToInt(Edit2.Text);
Label2.Caption := '';
for i := 0 to n do
 begin
  a[i] := Round(Sin(Random(-100))*100);
  if (a[i] > 0) and (a[i+1] > 0) or
      (a[i] < 0) and (a[i+1] < 0) then
        if a[i] + a[i+1] > c then
         Label3.Caption := IntToStr(i) + ' è ' + IntToStr(i+1);
  Label2.Caption := Label2.Caption + IntToStr(a[i]) + '; ';
 end;
end;

Как сделать что бы находил номер первой пары соседних элементов с разными знаками а не с одинаковыми

[tantema]

  if (a[i] > 0) and (a[i+1] > 0) or
      (a[i] < 0) and (a[i+1] < 0) then

Так как вам нужны цисла с разными знаками, то и условие должно быть таким же:

 if (a[i] > 0) and (a[i+1] < 0) or
      (a[i] < 0) and (a[i+1] > 0) then

А чтобы показывал только первую пару, я бы приписала еще break

[Mad_Cat]

ппц)

Как сделать что бы находил номер первой пары соседних элементов с разными знаками а не с одинаковыми

for i:=2 to n do
if a[i]*a[i-1] <0 then begin k:=i;break;end;

K-1 и k будут твоей парой