Обчислення підсумкових показників для числового масиву

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

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

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

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..10] of Real; i: Integer; max: Real;

begin

for i := 1 to 10 do

a[i] := StrToFloat (Memo1.Lines[i-1]);

max := a[1]; // Вважаємо, що найбільший елемент – перший

for i := 2 to 10 do

if a[i] > max then max := a[i]; {Замінюємо значення найбільшого елемента}

Label1.Caption := FloatToStr (max) + ' – найбільше значення';

end;

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

1. Задано масив, заповнений довільними числами від 0 до 100. Виведіть на екран кількість чисел, що належать проміжку від 25 до 75 включно.