в лазарус скиньте скрин знаходження суми за етой формулою procedure TForm1.Button1Click(Sender: TObject); var i, k: integer, a: array [1..10] of integer; begin k:=0; a[1]:=StrToint(Memo1.Lines[0]); for i:=1 to 9 do begin ali+1]:=StrToint(Memo1.Lines[i]); if afi+1]=a[1] then k:=k+1; end; editi.text:=IntTostr(k); end;

Анастасия2787    3   05.04.2021 13:45    0