Дан массив из 40 элементов от 0 до 2000. найти и вывести среднее арифметическое нечетных трехзначных чисел.

k: =0; m: =0; for i: =1 to 40 do beginif (a[i]> 99) and (a[i]< 1000) and (a[i]mod2< > 0) thenk: =k+1; m: =m+a[i]; end; writeln(m/k); end.

1) var i,a,b: longint; begin     read(a,b);     for i: =a to b do     if (i mod 3=0) then write(i,' ');     writeln; end. 2) var i: longint; begin     for i: =10 to 99 do     if (abs(i mod 10 - i div 10)< =1) then write(i,' ');     writeln; end. 3) var i,s,f,t: longint; begin     for i: =100 to 999 do     begin         f: =i div 100;         s: =i div 10 mod 10;         t: =i mod 10;         if (f=s) or (f=t) or (s=t) then write(i,' ');     end;     writeln; end.

Var a, n, ch, nch, i: integer; begin write("n: "); readln(n); ch: =1; nch: =0; for i: =1 to n do   begin   read(x);   if x mod 2=0     ch: =ch*x;   else     nch: =nch+x;   end; if ch=1   ch: =0; writeln("произведение чётных: ", ch, "; сумма нечётных: ", nch, "."); end. var i, n, o, p, x: integer; begin write("n: "); readln(n); p: =0; o: =0; for i: =1 to n do   begin   read(x);   if x> 0     inc(p);   if x< 0     inc(o);   end; write("кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". разница: ", abs(p-o)); end.