9 клас. Алгоритми опрацювання табличних величин: знаходження суми значень елементів; суми або кількості значень елементів, що задовольняють заданим умовам

Вправа 2. Середнє значення.

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

  s:real;

  a:array[1..10] of real;

begin

  Randomize;

  stringGrid1.Cells[0,1]:='a';

  s:=0;

  for i:=0 to 9 do

  begin

    a[i+1]:=random+9.0;

    stringGrid1.Cells[i+1,0]:=inttostr(i+1);

    stringGrid1.Cells[i+1,1]:=FloattostrF(a[i+1],ffFixed,3,2);

    s:=s+a[i+1];

  end;

  s:=s/10;

  Edit1.Text:=FloattostrF(s,ffFixed,2,2);

end;  

Завдання 1. 

Змініть діапазон випадкових чисел на від 1.0 до 5.0

Завдання 2.

Допишіть умову знаходження середнього значення лише чисел більших за 4

Завдання 3.

Знайдіть кількість чисел менших 2

Д/з

Опрацювати параграф 16 п. 16.3. Опрацювати вправу 3,4