, очень нужна помощь 1) Що відбудеться після виконання фрагмента програми:kil:=0; For i:=1 to 5 do if A[i]>0 then kil:=kil+1;2) Приведена процедура впорядкування елементів масиву за зростанням,але один з фрагментів треба вписати самостійно:procedure TForm1. Button1Click(Sender: TObject);var a: array [1. . 9] of real; p:real; n,i,j: integer;beginn:=9;for i:=1 to n do a[i]:=StrToFloat(Memo1. Lines[i-1]);for j:=1 to n-1 dofor i:=1 to n-j do…………………………………………………………………………………………………………………………………………………………. Memo2. Clear;for i := 1 to n do Memo2. Lines. Append(FloatToStr(a[i]));end;