Составьте програму:Дан целочисленный одномерный массив,состоящий из n элементов. Найти...

Question

Составьте програму:Дан целочисленный одномерный массив,состоящий из n элементов. Найти сумму нечетных элементов,кратных 3.

Comments

Нечетных по порядку следования лементов или нечетных по значению*

---

*элементов

Answer 1

Const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(90);
 write(a[i],'  ');
 end;
writeln;
s:=0;
for i:=1 to n do
 if (a[i] mod 2 <> 0)and(a[i] mod 3 = 0) then s:=s+a[i];
writeln('s=',s);
end.

Пример:
Исходный массив:
66  14  74  6  15  65  42  37  34  0  63  75  69  17  50  15  78  14  7  35  
s=237