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

Question

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

Answer 1

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.

Comments

Это на языке 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.

Answer 2

Cls
input n
dim a(n)
for i = 1 to n
input a(i)
next
for i =1 to n
if a(i)/5=int(a(i)/5) then goto 1 else goto 2
1 if a(i)/3<>int(a(i)/3) then print a(i)
2 next

Comments

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