Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 53 стр.

    var
       b, k : integer; // b -ɰɟɥɨɟ ɡɧɚɱɟɧɢɟ ɫɬɪɨɤɢ ɪɟɞɚɤɬɢɪɨɜɚɧɢɹ
       j    : byte; //j - ɩɚɪɚɦɟɬɪ ɰɢɤɥɚ ɞɥɹ ɬɟɤɭɳɟɝɨ ɧɨɦɟɪɚ ɫɬɨɥɛɰɚ ɦɚɬ-
ɪɢɰɵ
    begin
       with StringGrid1 do
           begin
               if Value = ''
                   then Exit; //ȿɫɥɢ ɧɢɱɟɝɨ ɧɟ ɜɜɟɞɟɧɨ, ɬɨ ɜɵɣɬɢ ɢɡ ɩɪɨɰɟɞɭ-
ɪɵ
               //ɇɚɱɚɥɨ ɡɚɳɢɳɟɧɧɨɝɨ ɛɥɨɤɚ
               try
                   b := StrToInt(Value)
               except
                   ShowMessage('ɇɟ ɜɟɪɧɵɣ ɫɢɦɜɨɥ!');
                   b:=0
               end;        //Ʉɨɧɟɰ ɡɚɳɢɳɟɧɧɨɝɨ ɛɥɨɤɚ.
               //ɂɝɧɨɪɢɪɨɜɚɬɶ ɧɟɜɟɪɧɨ ɜɜɟɞɟɧɧɭɸ ɨɰɟɧɤɭ
               if (b<1) or (b>5) then
                   begin
                      Cells[Acol,Arow]:='';
                      Exit;
                   end;
               Cells[Acol,Arow]:=Value; //Ɉɬɪɚɡɢɬɶ ɨɰɟɧɤɭ ɜ ɬɚɛɥɢɰɟ
               A[arow,Acol]:=b;               //Ɂɚɩɢɫɚɬɶ ɨɰɟɧɤɭ ɜ ɦɚɫɫɢɜ
               //Ⱦɚɥɟɟ ɩɨɞɫɱɟɬ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ.
               SS[Arow]:=0;
               k:=0; //ɋɱɟɬɱɢɤ ɱɢɫɥɚ ɜɜɟɞɟɧɧɵɯ ɨɰɟɧɨɤ
               for j:=1 to 4 do
                   begin
                      SS[Arow]:=SS[Arow]+a[Arow,j];
                      if StringGrid1.Cells[j,Arow]<>''
                          then k:=k+1;
                   end;
               if k<>0 then SS[Arow]:= SS[Arow]/k else SS[Arow]:=0;
               //Ɉɬɨɛɪɚɡɢɬɶ ɫɪɟɞɧɢɣ ɛɚɥɥ ɜ 5-ɨɦ ɫɬɨɥɛɰɟ ɬɚɛɥɢɰɵ.
               Cells[mm+1, Arow] := FormatFloat('##.##', SS[Arow])
           end;
    end; { TForm2.StringGrid1SetEditText }

      procedure TForm2.N3Click(Sender: TObject);
      var
         i: integer; {ɋɱɟɬɱɢɤ}
                                     53