1. составьте программу вычисления в массиве с(15) произведения элементов , кратных 9 2.составьте программу вычисления в массиве b(25) среднего арифметического с нечетными числами

1) var c: array [1..15] of integer; i,n: integer; begin n: =1; randomize ; for i: =1 to 15 do c[i]: =random(50); for i: =1 to 15 do write(c[i],' '); for i: =1 to 15 do if c[i] mod 9=0 then   n: =c[i]*n; writeln; for i: =1 to 15 do write(c[i],' '); writeln; writeln(n); end.2)varb: array [1..25] of integer; i,,j: integer; cr: real; beginrandomize; for i: =1 to 25 dob[i]: =random(50); for i: =1 to 25 dowrite(b[i],' '); for i: =1 to 25 doif b[i] mod2< > 0  thenbegin  cr: =cr+b[i];   j: =j+1;   end;   cr: =cr/j;   writeln;   write(cr);   end.    забудьте  сказать

Var a: array [1..100] of integer;       n, i, zq, k, l, j: integer; begin readln(n); for i: =1 to n do  a[i] : = random(500) - 249; for i : = 1 to n do          for j : = i to n do                for k : = j to n do                   for l : = k to n do                      if a[i] + a[j] + a[k] + a[l] = 0 then inc(zq); writeln(zq); end.

Program asd; var a,b: array [1..250,1..250] of integer;     i,j,n,m,k: integer; begin   write('введите n: '); readln(n);     write('введите m: '); readln(m);   for i: = 1 to n do    begin    for j: = 1 to m do      begin      a[i,j]: =random(10);       write(a[i,j]: 3);     end;     writeln;   end; writeln; for i: = 1 to n do        for j: = 1 to m do    begin      if   a[i,j] mod 2=1 then inc(k);       end;               if n=m then      begin      writeln('транспонирование: ');       for i: =1 to n do   begin    for j: =1 to m do      begin      write(a[j,i]: 3);       b[i,j]: =a[i,j];       end;     writeln;     end;   writeln;       end      else writeln('кол-во нечетных элементов: ',k); end.