Сформировать посл-ть N эл-ов. Найти сумму чётных отрицательных

benyagon

Опять я и опять я ноль прошу помощи! Экзамен у меня, чем быстрее помощь прийдет тем лучше!
2 ответа

benyagon

Функция Random(n) и процедура SetLength(s,m) тебе в помощь


benyagon

Ежели условие мной прочитанно правильно, то прошу программку к ознакомлению.
...
...
...
var
  i,m,c:integer;
  a:array [0..255] of integer;
...
...
...
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=strtoint(edit1.Text);
stringgrid1.RowCount:=m;
randomize;
for i:=0 to m-1 do
   begin
   a[i]:=200-random(400);
   stringgrid1.Cells[0,i]:=inttostr(a[i]);
   end;
end;
...
...
...
procedure TForm1.Button2Click(Sender: TObject);
begin
c:=0;
for i:=0 to m-1 do
  begin
  if (a[i]<0) and (a[i] mod 2 = 0)  then
   c:=c+a[i];
  end;
  edit2.text:=inttostr(c);
end;
...
...
...
Воть сама программка.