Найти сумму чисел последовательности, расположенных между максимальным отрицательным и минимальным положи

[Maks6169]

1.Для произвольных значений х, а вычислить
у=х+а при х>0 и а<>0
у=2ах+ln|x| при х<=0 и а<>0
у=х при а=0
Вывести на экран сообщение, в котором указывается номер выполнившегося условия.

2. Используя реккурентную формулу, вычислить сумму ряда
у=(буква похожа на Е сверху знак бесконечности снизу n=1)(2n)!\300^n
с точностью 1) Е=0,01; 2)Е=0,001. Определить количество элементов ряда, включенных в сумму.

3.Дана последовательность чисел. Найти сумму чисел этой последовательности, расположенных между максимальным отрицательным и минимальным положительным числами. Считать, что такие числа в последовательности обязательно есть.

4.Даны два массива чисел. Расположить элементы в первом массиве по возрастанию, а во втором по убыванию, используя одну процедуру сортировки.

5. Составить программы, с помощью которых:
-сформировать текстовый файл из строк, которые должны быть введены с клавиатуры;
-в файле из каждой строки удалить второе слово.

[Chudo4258]

1:

readln(x,a);
if a<>0 then if x>0 then y:=x+a
                             else y:=2*a*x+ln(abs(x))
             else y:=x;
writeln('y=',y);

3:

max:=1;
min:=1;
for i:=1 to n do
begin
 if (a[i]<0) and (a[i]>max) then max:=i;
 if (a[i]>0) and (a[i]<min) then min:=i;
end;
s:=0;
if max>min then 
    for i:=min to max do
      s:=s+a[i];
                  else
    for i:=min downto max do
      s:=s+a[i];

4:
Берешь любую процедуру сортировки, один масив проходишь в прямом порядке, оругой в обратном

[Maks6169]

спасибо огромное!

помогите задачи номер 2 и 5 решить!

[IT-man]

стучи помогу быстро и дешево

[Maks6169]

Ну хоть ктонибудь знает как это решается?

[as345]

5 решу за 1 бакс))))

[Stilet]

Пятая задача:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,classes;
  var s:string;f,k,l:TStringList;i,e:integer;
begin
//сформировать текстовый файл из строк, которые должны быть введены с клавиатуры;
 l:=TStringList.Create;k:=TStringList.Create;f:=TStringList.Create;
 repeat
  readln(s);
  l.Add(s);
 until s='';
 l.SaveToFile('c:\temp\q.txt');

//в файле из каждой строки удалить второе слово.
 for i:=0 to l.Count-1 do begin
  k.DelimitedText:=l[i];
  e:=0; while e<(k.Count-1) do begin
   f.Add(k[e]);
   inc(e,2);
  end;
 end;
 f.SaveToFile('c:\temp\w.txt');
 f.Free;k.Free;l.Free;
  { TODO -oUser -cConsole Main : Insert code here }
end.