Работа с массивами

[DeN1308]

Здравствуйте уважаемые программисты! Мне нужна ваша помощь! Нужно сделать описание программы по листингу, ну то есть рассписать что делает каждая строчка! Значит программа создает массив случайных целых чисел, подсчитывает их среднее арифметическое, а так же определяет и выводит на экран мин и макс значение из этих чисел!

Вот собственно листинг проги, все что я знал я подписал, но половина осталась неизвестной для меня))) помогите плиз...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    mmOutput: TMemo;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    ibOutput: TLabel;
    procedure bbRunClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bbRunClick(Sender: TObject);
const
 n = 25; //Кол-во эл-ов массива
 max_value = 100+1; //Диапазон значений случайных чисел
var
 m: array[1..n] of integer; //Массив чисел
 i: integer; //Индекс массива
 max, min: integer; //Мах и мин число
 sum: real; //Сумма чисел
 s: string;
begin
 s:='';
 //Заполняем массив случайными числами
 for i:= 1 to n do
  begin
   m[i]:= random(max_value);
   s:=s+#9+inttostr(m[i]); //Добавляем число к буферу
   if i mod 5 = 0 then //В буфере 5 чисел?
    begin //-Да. Выводим буфер
     mmOutput.lines.add(s);
     s:='';
    end
   end;
   //Задаем начальные значения переменных
  sum:=m[1];
  max:=m[1];
  min:=m[1];
  //Цикл вычисления суммы всех случайных чисел и поиска
  //минимального и максимального:
  for i:=2 to n do
   begin
    sum:=sum+m[i];
    if m[i]<min then
    min:=m[i]
    else
    if m[i]>max then
    max:=m[i];
    end;
    //Вычисляем среднее значение и выводи результат
   iboutput.caption:='минимум = '+inttostr(min)+' максимум = '+inttostr(max)+' среднее = '+floattostr(sum/n);
   end;
 end.

[_Dmitry]

Пиши программы сам, тогда и не будет таких вопросов.

[SuperVisor]

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

Пиши программы сам, тогда и не будет таких вопросов.

Зачем так? Может человек учится собрался ))

to Den1328: Повнимательней свой листинг посмотри - там все написано. Если интересуют остальные строки, то совету то же, что и _Dmitry.

[Alex21]

А может человеку каменты к каментам нужны?

По теме: любой учебник по Делфи, 1-2 глава.