Паскаль

[Павел Тихомиров]

Если вам не трудно, напишите пожалуйста всю программу

[Базиля]

Чувствую тут залежи багов... Я не помню какие приоритеты, но я привык писать

С приоритетом все хорошо Так что скобки не требуются,

А вообще rubius2008 красивее сказал.

ну здесь кому как нравится так сказать

[ArtGrek]

ну здесь кому как нравится так сказать

вот так еше можно,

procedure TForm1.FormCreate(Sender: TObject);
var
 a, b: integer;
 c: array [1..150] of integer;
 i: integer;
begin
 a:=1;
 c[a]:=-c[a] ;
 b:= (150 div 2) - 1;
 for i:= 1 to b do
 begin
  inc(a,2);
  c[a]:=-c[a]; 
 end;
end;

не сушествено, но
кажеца так быстрее работат будет, так как толко половина цифр обрабатываем,
или я ошибаюс?

[Павел Тихомиров]

[CODE]procedure TForm1.FormCreate(Sender: TObject);

TObject - а это что такое?

[ArtGrek]

Сообщение от Павел Тихомиров

[CODE]procedure TForm1.FormCreate(Sender: TObject);

TObject - а это что такое?

если ты в консоле работаеш тебе не надо, первая строка ето процедура созданиа формы

[Павел Тихомиров]

прогу надо сделать в Borland Paskal For Windows с использованием либо процедур, либо функций

[Павел Тихомиров]

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

[Павел Тихомиров]

Спасибо за помощь, у меня все получилось.