Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
Ответ:
<em>Ответ</em><em>;</em> 20+28=48
48-37=11 итог <em><u>ответ</u></em><em><u> </u></em><em><u>11</u></em>
Uses crt;
var a,b:integer;
begin
randomize;
a:=random(100);
writeln(a);
repeat
readln(b);
if b=100 then writeln('дополнено');
if b<100 then writeln('прибавь еще');
if b>100 then writeln('убавь-ка');
until b=100;
end.