<span>black.ppt
</span><span>lo3ck.sts
</span><span>applock.stu
</span><span>blocker. html</span>
Var
ax, bx:word;
st, sa,sg:string;
i,j, l:byte;
BEGIN
write('Введите целое положительноe число : ');
readln(st);
sa := '';
sg := '';
ax := 0;
bx := 1;
l := st.Length;
for i:=1 to l do begin
j:=ord(st[i])-48;
ax := ax + j;
bx := bx * j;
sa := sa+j+'+' ;
sg := sg+j+'*';
end;
i := l*2-1;
sa := sa.Remove(i,1);
sg := sg.Remove(i,1);
writeln('Среднее арифметическое = (',sa,')/',l, '= ', ax / l );
writeln('Cреднее геометрическое = корень ',l ,' степени из (',sg,') = ', exp(ln(bx)/l));
END.
Тебе пригодится вторая система
N это элементы массива
Раньше с паскалем не работал, но думаю что верно
for i:=1 to n then begin
if a [i] mod 2 = 0 then
writeIn(a[i]);
end
end;