Задачи

[Мариночка=)]

Помогите, пожалуйста, решить пару задачек!=) А то я не сильна в Паскале..
Дан массив:
1) Найти сумму элементов кратных 2.
2) Найти номер четных элементов.
3) Найти сумму элементов от a до b
Заранее благодарю!

[Mandrivnyk]

Найти сумму

Вот когда найдешь сумму... оплатить решение задач _за тебя_ -- тогда и обращайся в соответствующий раздел форума.
А тут -- не решебник домашних задач и контрольных работ.

[VIK_aka_TOR]

цена вопроса? пишите в аську... или личку.. сделаем...

[Mad_Cat]

 {Дан массив:
1) Найти сумму элементов кратных 2.
2) Найти номер четных элементов.
3) Найти сумму элементов от a до b }
var Arr:array[1..100] of integer;
a,b:integer;
s1,s2:integer;
i,n:integer;
begin
  Randomize;
 write('n=');readln(n);
 write('a=');readln(a);
 write('b=');readln(b);
 s1:=0;s2:=0;
 for I := 1 to n  do
   begin
    Arr[i]:=random(50)-25;
   if arr[i] mod 2=0 then s1:=s1+arr[i];
   if (arr[i]>a)and (arr[i]<b) then s2:=s2+arr[i];
  write(arr[i],' ');
  end;
  writeln;
  writeln('1)',s1);
  write('2)');
  for I := 1 to n  do
   begin
   if arr[i] mod 2=0 then write(' #',i);
  end;
  writeln;
  writeln('3)',s2);
  readln;
end.