1.В одномерном массиве подсчитать сумму тех элементов массива, которые кратны 5, но не делятся на 3.
2.В одномерном массиве подсчитать произведение тех элементов массива, которые стоя на индексах, кратных 3, а сами элементы четные.

поторопился... Админы ну что за дела? добавьте функцию чтоб еще можно было писать

Это на языке Pascal

Отметьте кто-нибудь как ошибку!!! Надо кое-что переделать.

А впрочем:1. var i, k, n: integer; a: array of integer;begin writeln('Введите кол-во элементов массива'); readln(N); k:=0; for i:=1 to N do begin read(a[i]); if (a[i] mod 5 =0) and (a[i] mod 3<>0) then k:=k+a[i]; end; writeln('k=',k);readln;end.2. var i, k, n: integer; a: array of integer;begin writeln('Введите кол-во элементов массива'); readln(N); k:=1; for i:=1 to N do begin read(a[i]); if (a[i] mod 2 =0) and (i mod 3=0) then k:=k*a[i]; end; writeln('k=',k);readln;end.

Clsinput ndim a(n)for i = 1 to ninput a(i)nextfor i =1 to nif a(i)/5=int(a(i)/5) then goto 1 else goto 21 if a(i)/3<>int(a(i)/3) then print a(i)2 next

1.var i, k, n: integer;            a: array of integer;begin writeln('Введите кол-во элементов массива');          readln(N);          k:=0;          for i:=1 to N do          begin read(a[i]);                    if (a[i] mod 5 =0) and (a[i] mod 3<>0) then                    inc(k);          end;          writeln('k=',k);readln;end.1.var i, k, n: integer;            a: array of integer;begin writeln('Введите кол-во элементов массива');          readln(N);          k:=0;          for i:=1 to N do          begin read(a[i]);                    if (a[i] mod 2 =0) and (i mod 3=0) then                    inc(k);          end;          writeln('k=',k);readln;end.