Кто может, помогите с задачей на функцию

[Andrux]

Доброго времени суток, кому эта задачка не сложна, прошу вас решите её...



Заранее благодарю! :huh:

вот.. начало вродь норм написал:

program anz;
uses crt
type a=array[1..n]of real;s,t:integer;
     begin
     clrscr;
     writeln;
     writeln('Vvedite chemy ravno N');
     readln(n);
     for

[danekne]

Даже в том, что написал - ошибка уже есть: константа n не определена... Или переменная, ибо она у тебя и так и так используется

[StarWorm]

Ну на Си++ я бы тебе помог, а вот с delphi/pascal вряд ли, хотя если никто не поможет, то посмотрю что можно сделать...
Ты хоть алгоритм себе представляешь??? Т.е. как из последовательности А (изначальные коэффициенты) получить последовательности B1 (положительные) и B2 (отрицательные)... Ну а далее в цикле (в Си функция pow() возведение в степень, хотя и сам можешь ее написать)... Мне это видится как то так!

[Andrux]

StarWorm
Спасибо, помогли да
вот что вышло...

program anz662;
uses crt;
const
     max = 1024;

type Massiv = array[1..max] of integer;

var
     s, t, n : integer;
     i : integer;
     a, P, Q : Massiv;
     Len_P, Len_Q : integer;

begin
     clrscr;
     Write('Vvedite n: ');
     ReadLn(n);

     Randomize;
     for i:=1 to n
     do begin
          a[i]:=Random(100);
          if Random(2) = 0 then a[i]:=a[i] * -1;
     end;

     Write('Massiv a:');
     for i:=1 to n do Write(a[i]:4);
     WriteLn;

     Len_P:= 0;
     Len_Q:= 0;
     for i:=1 to n
     do begin
          if a[i] < 0 then begin Len_P:= Len_P + 1; P[Len_P]:= a[i]; end
          else begin Len_Q:= Len_Q + 1; Q[Len_Q]:= a[i]; end;
     end;
     WriteLn; Write('Massiv P:');
     for i:=1 to Len_P do Write(P[i]:4);
     WriteLn; Write('Massiv Q:');
     for i:=1 to Len_Q do Write(Q[i]:4);
     WriteLn; WriteLn;

     {WriteLn;} Write('Vvedite s: '); Read(s);
     {WriteLn;} Write('Vvedite t: '); Read(t);

     WriteLn; Write('Rezultat raboti: ');
     Write(P[s] + Q[t]);
readln;
readln;
end.