Question

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

Answer 1

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

Answer 2

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

Answer 3

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.

Answer 4

Это на языке Pascal

Answer 5

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

Answer 6

А впрочем:
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.