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

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

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

[Иван 883]

uses crt;
var z:array [1..200] of real;
    n,q:integer;
    min,max,y:real;
begin
clrscr;
randomize;
 writeln('Введите n');
 readln(n);
 for q:=1 to n do
 begin
  z[q]:=random(100);
  writeln(' ',z[q]:2:2);
  end;
  min:=z[1];
  max:=z[1];
   for q:=1 to n do
    begin
     if min>z[q] then min:=z[q];
     if max<z[q] then max:=z[q];
     end;
y:=max+min;
writeln('Ответ ',y:2:2);
readln;
end.

[Veselyn]

Код для ВТОРОЙ программы

min:=a[1];
for i:=1 to n do
if a[i]>min then
begin
min:=a[i];
end;
.....................
max:=a[1];
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
end;

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

там нет 3 задачи....

[Veselyn]

Немноговато ли хмурых смайликоd? Создала две темы и везде одно и тоже. После двоеточия меняй скобку с '(' на ')' и будет

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

я не могу решить 1 задачу...

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

я не могу решить 1 задачу...

[Veselyn]

Что конкретно? организовать ввод, найти сумму или модуль?

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

да у меня вся программа в голову не лезет....не поможешь ???

[Veselyn]

только переменные опишеш сама.

Var
 //все переменние//  : integer;
Begin
writeln ('сколько будет чисел       :  ');
readln(n);
writeln ('shislo для сровнения (h)  :  ');
readln(h);
for i:=1 to n do begin
writeln ('shislo.[',i,'] = ');
readln (shislo[i]);    end;
for 1:=1 to n do
if shislo[i]<0 then begin
shislo[i]:=shislo[i]*(-1);        end;
sum:=0;
for i:=1 to n do
if shislo[i]>=h then
 begin
sum:=sum+shislo[i];
end;
writeln ('summa shisel >= h : ',sum);
readln;
end.