Ну если я правильно понял условие, то вот программный код. Он не идеален, так что можете вносить свои изменения))). В программе через Enter вводятся 5 элементов. Если остаток от деления равен 2, то счетчик увеличивается на 1(k), тут накапливаем количество чисел которые делятся на 9 с остатком 2. Не уверен что надо сравнивать a>9, но так числа сто процентов будут больше 9)))). Если это не делать то 2 будет считаться числом которое делится не 9 с остатком 2 вроде))). 
В противном же случае просто начинаем суммировать оставшиеся элементы.)))

program jekson;
uses crt;
const n=4;
var b,i,k,k2:integer;
var a:array[0..n] of integer;
begin
for i:=0 to n do                 
readln(a[i]);                 //вводим массив
k:=0;k2:=0;        // присваиваем 0 счетчикам, чтобы небыло неразберихи с какого числа начинаем считать.
for i:=0 to n do begin
b:=a[i] mod 9;
if (a[i]>9) and (b=2) then k:=k+1       // само условие с накоплением
else k2:=k2+a[i];                                 // суммирование оставщихся элементов
end;
writeln('4islo elementov s ostatkom 2= ',k);
writeln('Summa ostavshixsy elementov = ',k2);
readkey;
end.

Ну дык и условие мона изменить на
if a[i] mod 9=2 then k:=k+1

Ошибка в 17 строке.
Че пишет? Какая ошибка?

ЗЫ. Извини телепатор потерял.

В 8 посте когда идёт проверка условия нужно или добавить Begin или убрать END!!

постить будешь их?

ЗЫ. на досуге помозговать))

если в эл. виде скинь на мыло:) - vasizmax@mail.ru или залей куда-нить(это б вапщеп классно было)
если бумага, то кто авторы, название, издательство)

ЗЫ. интересно посмотреть просто

Убедительная просьба:
Для каждой задачи/проблемы открывать новую ветку, что бы не создавать свалку в одной.

ЗЫ. 2JeKsoN: за ранее спс))

Задача 4

program jekson4;
uses crt;
const n=6;
var b,i,k,k2:integer;
var a:array[0..n] of integer;
begin
for i:=0 to n do                  
readln(a[i]);                 //вводим массив 
k:=0;  //счётчик суммы
k2:=0;        // Счётчик кол-во элементов
for i:=0 to n do begin
if i mod 2=0  then k:=k+a[i] ;       
if i mod 3=1  then k2:=k2+1 ;      
end;
writeln('Сумма чётных элементов = ',k);
writeln('Колво нечётных элементов = ',k2);
readkey;
end.

Отредактировано LALALA (2007-05-05 00:52:38)

3 задача

program jekson;
uses crt;
const n=6;
var b,i,k,k2:integer;
var a:array[1..n] of integer;

begin
for i:=1 to n do
readln(a[i]);
k:=0;k2:=1;
for i:=1 to n do begin
if i mod 2=0 then k:=k+a[i];
if i mod 3=0 then k2:=k2*a[i];

end;

writeln;write('Summa 4isel poziciy kotorix 4itnay= ',k);
writeln;write('Proizvedenie 4isel poziciy kotorix kratna 3 = ',k2);
readkey;
end.

Задача 4.

program jekson;
uses crt;
const n=5;
var b,i,k,k2:integer;
var a:array[0..n] of integer;
begin
for i:=0 to n do
readln(a[i]);
k:=0;k2:=0;
for i:=0 to n do begin
if a[i] mod 2=0 then k:=k+a[i];
if a[i] mod 2=1 then k2:=k2+1;
end;
b:=a[0];a[0]:=a[n];a[n]:=b;
write('Pomenyli mestami');
for i:=0 to n do
write(a[i]:2);
writeln;write('Summa 4etnix 4isel = ',k);
writeln;write('Koli4estvo Ne4etnix = ',k2);
readkey;
end.