Дан массив целых чисел {zi}, i = 1, 2, . . , n. найти количество и сумму тех членов данного массива, которые делятся на 3 и не делятся на 4. написать в паскаль
Const N = 13; Var Z:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin Z[i]:=random(2*N+1)-N; Write(' ',Z[i]); if (Z[i] mod 3 = 0)and(Z[i] mod 4 <> 0) then S:=S+Z[i]; End; WriteLn; WriteLn('S = ',S); End.
N = 13;
Var
Z:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
Z[i]:=random(2*N+1)-N;
Write(' ',Z[i]);
if (Z[i] mod 3 = 0)and(Z[i] mod 4 <> 0) then S:=S+Z[i];
End;
WriteLn;
WriteLn('S = ',S);
End.