Solominka, Что то совсем не понятно....
Цитата(Solominka @ 20.1.2010, 14:54  ) | | Даны действительные числа a(1), a(2), ...,a(2*n) |
Ну с этим ясно..
| Цитата(Solominka @ 20.1.2010, 14:54 ) | | Получить a(1), a(n+1), a(2), a(n+2), ..., a(n), a(2*n). |
Куда получить? и собственно почему именно в таком порядке?
| Цитата(Solominka @ 20.1.2010, 14:54 ) | | Вычислить отдельно, сумму отрицательных и положительных чисел. |
Ну с этим тоже понятно... Вот код
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
n, i: integer;
Arr: array of real;
Summ, MSumm: real;
begin
n := 10;
SetLength(Arr, n*2);
//Заполняем массив
randomize;
for i := 0 to n*2 do begin
Arr[i] := Random(10)-5; //случайно от -5 до 5
end;
//Кончили заполнять массив
Summ := 0; //Сумма положительных
Msumm := 0; //Сумма отрицательных
for i := 0 to n*2 do begin
if Arr[i]>0 then Summ := Summ + Arr[i]
else Msumm := Msumm + Arr[i];
end;
ShowMessage('Сумма положительных чисел=' + FloatToStr(Summ) + ' Сумма отрицательных чисел=' + FloatToStr(MSumm));
end;
|
Или числа каким тохитрым способом записаны, например a(1)-a(n) положительные, a(n+1)-a(2n) отрицательные?
|