ArrayForm.pas

unit ArrayForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FNumArr: array[0..9] of Integer;

    procedure InitArray;
    function GetArraySum: Integer;
    function GetArrayMaxNum: Integer;

  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin
  InitArray;
end;

// 배열에 초기값을 설정
procedure TForm3.InitArray;
var
  I: Integer;

begin
  // 배열(FNumArr)의 길이만큼 반복하며 임의의 값(1~100)을 설정
  for I := 0 to Length(FNumArr) - 1 do
    FNumArr[I] := Random(100);
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  I: Integer;
  Sum, MaxNum: Integer;

begin

  // 배열의 합
  Sum := GetArraySum;

  // 배열 중 최고값
  MaxNum := GetArrayMaxNum;

  Memo1.Lines.Clear;
  Memo1.Lines.Add('배열 내용');

  { TODO :
    (1) for 문을 이용해 배열의 내용을 출력하세요.
    배열의 크기 변경되도 동작하도록 반복의 끝은 Length(FNumArr) - 1로 설정
     예> for I := 0 to Length(FNumArr) - 1 do }

  for I := 0 to Length(FNumArr) - 1 do
    begin
      Memo1.Lines.Add('-'+ inttostr(Fnumarr[i]));
    end;

  Memo1.Lines.Add('배열의 합은 ' + IntToStr(Sum) + ' 입니다.');
  Memo1.Lines.Add('배열의 최대값은 ' + IntToStr(MaxNum) + ' 입니다.');
end;

function TForm3.GetArraySum: Integer;
var
  I, Sum: Integer;

begin
  Sum := 0;
  { TODO : (2) for 문을 이용해 배열의 값을 모두 더해 반환하도록 구현 }
  for I := 0 to Length(FNumArr) - 1 do
   begin
      Sum := sum+fnumarr[i];
   end;
  Result := Sum;
end;

function TForm3.GetArrayMaxNum: Integer;
var
  I, MaxNum: Integer;

begin
  MaxNum := 0;
  { TODO :
    (3) for 문을 이용해 배열의 값 중 가장 큰 값을 반환하도록 구현
        if 문을 이용해 숫자를 비교  }
  for I := 0 to Length(FNumArr) - 1 do
   begin
    if FNumArr[i] >= maxnum then
       maxnum := fnumarr[i];
   end;


  Result := MaxNum;
end;

procedure TForm3.Button2Click(Sender: TObject);
var
  I,
  CountOver, CountUnder: Integer;

begin
  CountOver := 0;
  CountUnder := 0;
  { TODO :
      (4) for 문을 이용해 배열의 값이
          50 이상(>=)인 경우 CountOver 1 증가
          50 미만(<)인 경우 CountUnder 1 증가 하도록 구현
  }

  for I := 0 to Length(FNumArr) - 1 do
   begin
    if FNumArr[i] >= 50 then
    begin
       countover := countover+1;
    end

    else countunder := countunder+1;
   end;

  Memo1.Lines.Add('50 이상인 수의 갯수: ' + IntToStr(CountOver));
  Memo1.Lines.Add('50 미만인 수의 갯수: ' + IntToStr(CountUnder));
end;

end.