Делфи

[koxaz941]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  n, i, j, a, s: integer;
  str: string;
begin
  randomize;
  n := strtoint(Edit1.Text);
  j := -1;
  s := 0;
  str := '';
  for i := 1 to n do
  begin
    a := random(2001) - 1000;
    if a mod 2 = 0 then
      inc(s, a);
    if (j < 0) and (a > 0) and (a mod 5 = 2) then
      j := i;
    str := str + inttostr(a) + ' ';
  end;
  str := str + #13#10 + 'Сумма четных чисел: ' + inttostr(s) + #13#10 +
    'Номер первого положительного элемента, делящегося на 5 с остатком 2: ' +
    inttostr(j);
  Memo1.Text := str;
end;

Это решение и первой, и второй.
В этом решении не используется массив (фактически он не нужен), так как элементы можно генерировать и обрабатывать последовательно.

Спасибо тебе огромное, все сделал, завтра сдача