Вычислить сумму элементов массива, кратных 3.количество элементов в массиве 25.

Аименно что надо тогда попробую что то сделать

Var     i,j,s,min,im: integer;     a: array[1..7,1..5]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 5 do     begin     a[i,j]: =random(-9,9);     write(a[i,j]: 4);     end;   writeln;   end; writeln('сумма отрицательных по столбцам: '); for j: =1 to 5 do   begin   for i: =1 to 7 do     if a[i,j]< 0 then s: =s+a[i,j];   write(s: 4);   s: =0;   end; min: =a[1,1]; for j: =1 to 5 do     begin     if (a[1,j]< min) then       begin       min: =a[1,j];       im: =j;       end;     end; writeln; writeln('min=',min,'; (1,',im,')'); end.

1)

program n1; uses crt; var k,n,i: integer; beginwriteln('vvedite n'); readln(n); for i: =1 to n do if n mod i=0 then k: =k+1; writeln('delitelei ',k,' vkluchaya 1 i ',n); readlnend.

 

 

2)

program n1; uses crt; var k,n,i: integer; beginwriteln('vvedite n'); readln(n); for i: =1 to n-1 do if n mod i=0 then k: =k+i; if k=n then writeln ('chislo ravno summe delitelei') else writeln('ne ravno'); readlnend.

 

 

3) вычислить, я так поняла, сумму всего этого?

program n1; uses crt; var k,n,i,j,a: integer; s: real; p: longint; beginwriteln('vvedite a,n'); readln(a,n); p: =1; for i: =1 to n do for j: =1 to i do p: =p*a; s: =s+1/p; writeln(s); readlnend.