Пошук у масиві за певними критеріями. Найбільший і найменший елементи табличної величини

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

Створіть у власній папці – папку Знаходження найбільшого та найменшого елемента

Завдання 1

Створіть проєкт, у якому вводяться значення елементів табличної величини із 15 цілих чисел у багаторядковому текстовому полі, і програма знаходить найбільше серед вказаних чисел. Збережіть проект у папці з іменем Завдання 55.1, створеній у вашій папці.

1.               В середовищі розробки програм створіть форму за зразком та заповніть поле Memo 1 15 елементами (використовуючи властивість Lines)

2.               Запрограмуйте клавішу підрахувати:

var

  Form1: TForm1;

  a: array [0..14] of Integer;

  i,max:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

  for i:=0 to 14 do

  a[i]:=StrToInt(Memo1.Lines[i]);

max:=a[0];

for i:=1 to 14 do

  if a[i]>max then

    max:=a[i];

label2.Caption:=IntToStr(max);

end;

end.

3.     Збережіть проект у своїй папці із іменем Завдання 55.1 та скомпілюйте програму. Проведіть тестування.

Завдання 2

Скопіюйте всі файли з папки Завдання 55.1 у папку Завдання 55.2

1.               Відредагуйте проект таким чином, щоб знаходити мінімальне значення серед заданих чисел.
2.               Збережіть проект скомпілювавши його.

Завдання 3

Створіть проєкт, у якому вводяться значення елементів табличної величини із 15 цілих чисел у багаторядковому текстовому полі, і програма знаходить суму найбільшого та найменшого серед вказаних чисел. Збережіть проект у папці з іменем Завдання 55.3, створеній у вашій папці.