Witam. Piszę z prośbą o pomoc. Chce zrobić stringgrida z randomowymi liczbami od (-20 ; 20) i potem zsumować parzyste i nieparzyste liczby.
Pierwsza część wygląda tak.
Var I,J : Integer ;
begin
for I := 0 to stringgrid1.Rowcount-1 Do
for J := 0 to stringgrid1.Colcount-1 do
stringgrid1.Cells[J,I] :=
Inttostr(Random(40)-20)
I tu zaczynają się schody. Chciałbym w edit1.text i edit2.text umieścić sume parzystych i nieparzystych liczb.
Znam algorytm na liczbe parzystą
n mod 2 = 0
tylko nie wiem jak to połączyć z liczbami w stringgridzie
Z góry dziękuje za pomoc.
Pozdrawiam