Задачи на строки и массивы+1 на последовательность Опции

[mafia1232]

У меня есть несколько задач и их надо решить на завтра. Пожалуйста хелп. ОЧЕНЬ НАДО. Вот условия первой:
дан одномерный массив An подсчитать количество четных элементов и их сумму
получилось вот что, но есть ошибки

Исходный код

program p21;
uses crt;
type
vector=array [1..100] of integer;
var
A:vector;
s,i,n,K:integer;
procedure Init(n:integer; var A:vector;ch:char);
var
i:integer;
begin
writeln('vvod elementov massiva ',ch);
for i:=1 to n do
begin
write('vvedite [',i,'] elementov massiva ',ch);
readln(A[i]);
end;
end;
procedure Print(n:integer;A:vector; ch:char);
var
i:integer;
begin
writeln('vivod elementov massiva ',ch);
for i:=1 to n do
write(A[i]:3, ' ');
writeln;
end;
function Rez(n:integer;A:vector):integer;
Var
i,m:integer;
begin
m:=0;
for i:=1 to n do
if (A[i] mod 2=0) then m:=m+1;
Rez:=m;
end;
begin
clrscr;
writeln('vvedite rrazmernost');
readln(n);
Init(n,A,'A');
Print(n,A,'A');
K:=Rez(n,A);
if K=0 then
writeln('chetnix elementov net')
else
writeln('chislo chetnix elementov', K);
readln(K);
s:=s+K;
writeln('symma = ',s);
readln;
end.

Если такие темы существуют, то прошу прощения

Сообщение отредактировано: volvo - 9.09.2005 9:55

[hiv]

Все за тебя делай!
Хоть сам объяснить сможешь, что я сделал?

program p2;
uses crt;
var
i,n:integer;
a,s,s1:real;
begin
clrscr;
writeln('vvedite n');
readln(n);
s:=0;
for i:=1 to n do
begin
if odd(i) then a:=-exp(i*ln(2))/i
else a:=exp(i*ln(2))/i;
s:=s+a;
end;
writeln('summa =  ',s:8:3);
readln;
end.