[RainbowEyes]

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

Ну ладно издеваться над халявщиком


Задача 1. Просто перебираешь все числа в гриде (for) и если число < 0, то выводишь значение счетчика цикла.
Задача 2. Честно говоря, не понял задание. Что за q???, откуда k (т.е. шаг).
Задача 3. Квадрат числа есть всегда положительное число, т.е. отрицательные нам не годятся. Далее, корень из числа должен быть целым и четным. Если все условия выполнились - то проверяемое число есть квадрат четного числа. ЗЫ. Да, результатом возведения в квадрат четного числа всегда будет четное число, так что часть можно отсеять и на этом условии.

1 задачу я сделал

Код:

procedure TForm1.btn1Click(Sender: TObject);
var A: Array[1..10] of Integer;
    i: Integer;
begin
  randomize;
  for i :=1 to 10 do
  begin
    A[i] := Random(20)-10;
    stringgrid2.cells[i-1,0]:=inttostr(a[i]);
  end;
  for i :=1 to 10 do
       if A[i] < 0 then
      Memo2.Lines.Add(IntToStr(i));
 
end;
end.

а остальные я даже не подозреваю как делать