Помогите написать программу на Delpfi 7

[CTYDENT]

Помогите написать программу на Delpfi 7 (желательно с объяснениями) это мне нужно к зачету, а я в этом вообще не соображаю, да и к тому же предмет не профильный.

Ну и сама задача:
Определить сумму элементов массива N(50) кратных трём.

(желательно с окошечком, кнопочкой и другими ништяками)) чтоб препод оболдел, ну и я конечно же ) чет я обнаглел уже xD ну могу на телефон пару соточек кинуть)))

Спасибо за внимание, жду ответа

[min@y™]

Что за ВУЗ такой халявный?
Пара соточек - в какой валюте? $, €, ¥

чтоб препод оболдел

Препод не шарит в сабже? Мы жэж можем такүю прогу заколбасить с преферансом и куртизанками, что сбежится вся кафедра посмотреть!

[Stilet]

Определить сумму элементов массива N(50) кратных трём.

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
 procedure obaldet;
 var n:array[1..50] of integer; sum,i:integer;
 begin
   //Определить сумму элементов массива N(50) кратных трём.
   for i:=Low(n) to High(n) do begin
     n[i]:=0;
     if (n[i] mod 3)=0 then sum:=sum+n[i];
   end;
   ShowMessage('суммa элементов массива N(50) кратных трём = '+IntToStr(sum));
 end;

 { TForm1 }

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   halt;
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  halt;
end;

end.

Кнопочки. Ништяки. Окошечко.
Препод долго будет отходить. Гарантирую.

О! А самое главное - алгоритм!

[min@y™]

Кнопочки. Ништяки. Окошечко.

Круть неимоверная!



не, смайл не тот!... Вот такой лучше:

[Stilet]

Круть неимоверная!

Ну а че? ТЗ вроде выполнил четко
Все как заявлено. И даже бесплатно.

[Ахматов Эмиль]

Друг, сможешь еще что что похожее замутить? Плиз. Очень нужно

[studento4kaaa]

Определить максимальный элемент массива С(100) и его порядковый номер среди элементов удовлетворяющих условию xi>0

[CTYDENT]

Опа!) А вот и одногрупники xDd Нужно создать новую тему с вопросом

[Ахматов Эмиль]

Надеючь кто то из ребят откликнется

[min@y™]

Друг, сможешь еще что что похожее замутить? Плиз. Очень нужно

Это ты к кому обращаешься-то?