Урок 49-50. Опрацювання одновимірних масивів: пошук елемента з найбільшим, найменшим значенням

Перегляньте презентацію

Практичне завдання

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

Повторіть правила безпечної роботи за комп’ютером.

Завантажте і встановіть: Середовище програмування Лазарус (для тих, хто не завантажив)

Завдання. Визначити найбільше значення серед значень елементів одновимірного масиву.

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

Procedure TForm1.Button1Click(Sender: TObject);
    var a: array [0..9] of real; i: integer; max: real;
begin
    for i := 0 to 9 do a[i] := StrToFloat(Memo1.Lines[i]);
    max := a[0]; // вважаємо, що найбільше значення – значення першого елемента
    for i := 1 to 9 do if a[i] > max then max := a[i]; // замінюємо найбільше значення
    Label1.Caption := FloatToStr(max) + ‘ – найбільше значення’;
end;

Виконайте завдання за підручником

"Інформатика, 9 клас" (Й.Я. Ривкінд та їнші):

• Прочитайте та розберіть теоретичний матеріал пункту 5.2 (стор. 248-250), вправи 3, 4 (стор. 254).

Перевірте свій рівень знань 

Скриншот результату тесту прикріпіть у розділі Ваші роботи на платформі Google ClassRoom: 

• Опрацювання табличних величин