For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(34);
write(a[i],' ');
end;
writeln;
sum:=0;
k:=0;
for i:=1 to n do if a[i] mod 3 = 0 then
begin
k:=k+1;
sum:=sum +a[i];
end;
writeln('кол-во: ',k);
writeln('сумма: ',sum);
writeln('ср. арифм: ',sum/k);
end.
Program z;
var n,p,i:integer;
begin
write('n=');
readln(n);
p:=1;
if n mod 2=1 then i:=1 else i:=2;
while i<=n do
begin
p:=p*i;
i:=i+2;
end;
writeln(n,'!!=',p);
end.