Дан массив целых чисел. Найти: а) сумму элементов массива, которые не превышают 20. б)сумму нечетных элементов.

1) var  a: array[0..10] of integer;  i, s: integer; begin     for i := 1 to 10 do   begin     a[i] := random(60);     write(a[i], ' ');     if a[i]<=20 then s:=s+a[i]; end;   writeln;   writeln(s); end. 2) var  a: array[0..10] of integer;  i, s: integer; begin    for i := 1 to 10 do   begin     a[i] := random(60);     write(a[i], ' ');   // if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.     // if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.   end;     writeln;   writeln(s); end.