1.В одномерном массиве подсчитать сумму тех элементов массива, которые кратны 5, но не делятся на 3. 2.В одномерном массиве подсчитать произведение тех элементов массива, которые стоя на индексах, кратных 3, а сами элементы чет...
1.В одномерном массиве подсчитать сумму тех элементов массива, которые кратны 5, но не делятся на 3.
2.В одномерном массиве подсчитать произведение тех элементов массива, которые стоя на индексах, кратных 3, а сами элементы четные.
Гость
Ответ(ы) на вопрос:
Гость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
Гость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.
Не нашли ответ?
Похожие вопросы