Дан массив целых чисел. Найти:

а) сумму элементов массива, которые не превышают 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.