Помогите пожалуйста решить задачки в паскале.

+ 0 -

Nikon1234567890

22 июня 2013 г., 3:18:59 (10 лет назад)

1. Пишу не весь код,а только самую важную часть
buf:=a[1];//buf имеет тип такой же, как и массив
for i:=1 to n-1 do 
a[i]:=a[i+1]; //сдвигаем все элементы влево
a[n]:=buf;// последнему присваиваем первый

2. if sqrt(sqr(x[i])+sqr(y[i]))<=R then writeln(x[i],' ',y[i])

3. Опять же не весь код
ch// Кол-во чётных
p//  Произведение
s//  Сумма
s:=0;ch:=0;p:=1;
for i:=1 to n do begin 
if a[i]>=0 then s:=s+a[i]
else p:=p*a[i];
if a[i] mod 2 = 0 then ch:=ch+1;
end;
writeln('Чётных ', ch);