Народ, нужно выполнить несколько задач в Паскале, а я не особо разбираюсь пока что.
Напишите, если не влом. Пока что не к спеху.

Нажмите для просмотра прикрепленного файла

Спасибо за FAQ, помог. Первых два задания уже сделал.
Кста, 3е надо делать не через массивы... а как-то по-другому

Ты хоть пробовал делать ? задачки то простые, а если FAQ читал то вопросов быть не должно ... Покажи как ты делаешь, подскажем, поправим.

Задание #5 - в поиск... "Знакопеременный ряд" или что-то подобное ...

Ага. Третью вообще пока что не понял как делать. Так что, это кому как...
Мне это делать совсем не просто
Вот сел за четвертую, и уже через 10мин запутался в том, что пишу

program Laba4;
var p,q,d: array[1..12] of real;
i: integer;
begin
readln(d[i]); d[i]:=0;
for i:=1 to 12 do
begin
read(p[i],q[i]); d[i]:=(p[i]-q[i])/(p[i]/q[i]);
writeln('p[',i:2,']=',p[i]:12:3);
writeln('q[',i:2,']=',q[i]:12:3);
end
end.

Сумма - в скобках, то есть p/q к сумме не имеют никакого отношения...

...
s := 0;
for i:=1 to 12 do begin
  read(p[i],q[i]); s := s + (p[i]-q[i]);
end;

for i := 1 to 12 do
  d[i] := s * (p[i]/q[i]);
...

А для решения задач, подобных третьей, специально придумали функцию Pos (все, что требуется от программы - определить, встречается ли в заданной тобой строке запятая...)

Это получается вот так?

program Laba4;
var p,q,d,s: array[1..12] of real;
i: integer;
s:= 0;
readln(d[i]); d[i]:=0;
for i:=1 to 12 do
read(p[i],q[i]); s := s + (p[i]-q[i]);
end;

for i:= 1 to 12 do
  d[i]:= s * (p[i]/q[i]);

writeln('p[',i:2,']=',p[i]:12:3);
writeln('q[',i:2,']=',q[i]:12:3);
end
end.

Про Pos без понятия куда его ставить...

Что-то всеравно не выходит... есть у кого соображения?

показывай, что не выходит.

см. выше