ОЧЕНЬ НУЖНА ! 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; BEGIN N:=9; FOR I:=1 TO N DO A[I]:=STRTOFLOAT(MEMO1.LINES[I-1]); FOR J:=1 TO N-1 DO FOR I:=1 TO N-J DO …………………………………………………………………………… ……………………………………………………………………………. MEMO2.CLEAR; FOR I := 1 TO N DO MEMO2.LINES. APPEND(FLOATTOSTR(A[I])); END;

karinatom9    3   10.11.2021 17:45    0