for i := 1 to 9 do
if A[i] > A[4] then
begin
c := c + 1;
end;

ЧеТКиЙВсЕУмиЙ    3   19.11.2020 20:54    0