паскаль...2 программы...

[Оксаночка:)]

цикл :
1.Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен ε.
Общий член ряда имеет вид: см.картинку
массив :
1.Найти сумму наибольшего и наименьшего элементов массива вещественных чисел массива Z(n)

[Sazary]

Какие проблемы? Что непонятно?

В первой:
сумма = 0
n = 1
цикл repeat-until, условие выхода - a<e
в теле вычисляете a(n) по формуле, затем S := S+a
Потом увеличиваете n
И все.

Про вторую и сказать-то нечего.
Задачи-то простые.

[Оксаночка:)]

ну тебе простые, а мне...я глупенькая...вот мне по информатике задали...и я незнаю что делать...

[Sazary]

Так я же описал примерный алгоритм. Напишите, а что непонятно будет - спрашивайте.
Прежде чем писать, просто подумайте, как бы вы это делали "на бумажке". Программа просто автоматизирует процесс, но алгоритм остается тот же.

[Оксаночка:)]

Я не умею...

я незнаю с чего начать...

[Sazary]

Я не умею...

Ну надо же когда-то учиться.

я незнаю с чего начать...

Ну раз вам задали эти задачи, то и материал вам тоже давали.
Сначала напишите "скелет" программы. То есть подключение модулей, начало и конец главной функции.
Затем объявите нужные переменные.
А потом перечитайте условие задачи и начинайте писать.

Начните с ввода элементов ряда и "ε".

[Оксаночка:)]

хм...

[KORN]

во 2й задаче там в первом цикле определяешь максимальный элемент, а во 2м цикле минимальный, далее складываешь результаты и все...

а то что не умеешь и не знаешь с чего начать, это не показатель... почему то на информатике ты такого не говоришь... ведь раз задали значит дали нужные для этого знания...

[Ky3Heu,]

procedure TForm1.Button1Click(Sender: TObject);
var
z: Array[1..5] of Real;
z_min,z_max,s:Real;
i:Integer;
begin
//Заполняем массив
z[1]:=2;
z[2]:=1;
z[3]:=2;
z[4]:=3;
z[5]:=9;
for i:=1 to 4 do
begin

  if z[i]>z[i+1] then
z_min:=z[i+1]

end;
label1.Caption:=FloatToStr(z_min);
for i:=1 to 4 do
begin
  if z[i]<z[i+1] then
z_max:=z[i+1]

end;
label2.Caption:=FloatToStr(z_max);
s:=z_min+z_max;
label3.Caption:=FloatToStr(s);
end;

end.