нужно сделать 2 задачи в delphi 7

[Catsura]

Прошу помочь мне сделать 2 задачи в delphi 7, до зачета осталась неделя, а самому сделать никак не получается
Собственно вот задания:
1
В одномерном массиве, состоящем из n вещественных элементов,
вычислить:
1) сумму отрицательных элементов массива;
2) произведение элементов массива, расположенных между максимальным и
минимальным элементами.
Упорядочить элементы массива по возрастанию.
2
Напишите подпрограмму, которая сравнивает два числа и возвращает результат в виде символа "<" или ">" или "=".

В заранее большое спасибо

[Человек_Борща]

а самому сделать никак не получается

Показывайте, что не получается.

[Вадим Мошев]

Catsura
Могу предложить платную помощь. Вы согласны?

[Catsura]

Сообщение от Человек_Борща

Показывайте, что не получается.

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

Сообщение от Вадим Мошев

Catsura
Могу предложить платную помощь. Вы согласны?

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

[BDA]

Да за неделю можно выучить все
Если бы у меня не было никаких наработок, то я бы, скорее, обратился к другу, а не к незнакомым дядям на форуме. Прочтите методички, лекции, какие были, и попробуйте написать сами. Эти задачи на самые основы языка.

[Catsura]

Сообщение от BDA

Да за неделю можно выучить все
Если бы у меня не было никаких наработок, то я бы, скорее, обратился к другу, а не к незнакомым дядям на форуме. Прочтите методички, лекции, какие были, и попробуйте написать сами. Эти задачи на самые основы языка.

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

[NewLamer&Programer]

Сообщение от Catsura

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

значит остается читать книжки в интернете (этого барахла навалом гугл в помощь)

[Catsura]

Сообщение от NewLamer&Programer

значит остается читать книжки в интернете (этого барахла навалом гугл в помощь)

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

Я сюда за конкретной помощью обратился.

[Rififi]

Catsura

друзья не помогут, я обращался, у них своих проблем хватает

Странные у тебя какие-то друзья.
Вот Бенджамин никогда не подводит, надежный как скала и всегда приходит на помощь



расширяй свой круг знакомств :D

нету у меня времени читать книжки
Я сюда за конкретной помощью обратился.

Вот вам чистА кАнкретное предложение - идите в армию.
Умные там не нужны, поэтому ваше нежелание читать литературу будет только приветствоваться. К тому же это бесплатно, и никто вам там задачки задавать не будет.

[Stilet]

Прошу помочь мне сделать 2 задачи в delphi 7, до зачета осталась неделя, а самому сделать никак не получается
Собственно вот задания:
1
В одномерном массиве, состоящем из n вещественных элементов,
вычислить:
1) сумму отрицательных элементов массива;
2) произведение элементов массива, расположенных между максимальным и
минимальным элементами.
Упорядочить элементы массива по возрастанию.
2
Напишите подпрограмму, которая сравнивает два числа и возвращает результат в виде символа "<" или ">" или "=".

В заранее большое спасибо

С потолка в качестве идейного алгоритма:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    function c:char;
    { private declarations }
  public
    { public declarations }
  end;
const n=1;
var a:array[1..n] of double; p,sumin:double; imax,imin:integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var j,i,k:integer;
begin
 for i:=low(a) to high(a) do begin
   a[i]:=random(100)-100;
   //сумму отрицательных элементов массива;
   if a[i]<0 then sumin:=sumin+a[i];
   if (i=low(a))or(a[imax]<a[i]) then imax:=i;
   if (i=low(a))or(a[imin]>a[i]) then imin:=i;
 end;
 //произведение элементов массива, расположенных между максимальным и  минимальным элементами.
 if imax<imin then begin i:=imax;imax:=imin;imin:=i;end;
 p:=a[imin];
 for i:=imin to imax do begin
  p:=p*a[i];
 end;
 //Упорядочить элементы массива по возрастанию
 for i:=low(a) to high(a) do for j:=low(a) to high(a) do
 if a[i]<a[j] then begin k:=a[i];a[i]:=a[j];a[j]:=k;end;
end;

function TForm1.c: char;
begin;
 if 5>0 then Result:='>' else
   if 5<0 then Result:='<' else Result:='=';
end;


end.

Помогло?