procedure TForm3.BitBtn3Click(Sender: TObject); //Процедура вычисления среднемесячного заработка
begin
error:='Вы ввели неверные данные!!!';
for int:=1 to 4 do begin
if Stringgrid1.Cells[3,int]=edit1.text
then
begin
k:=k+1;
s:=s+strtofloat( Stringgrid1.Cells[2,int]);
end;
if(int=4)
then
if k=0 then
ShowMessage(error);
else s:=s/k;
end;
edit2.text:=floattostr (s);
end;