Вкаждом окне есть своя панель инструментов, она содержит значки, как правило, дублирующие самые часто используемые команды, находящиеся в списке команд строки меню. предназначена для ускорения работы в окне папки, программы и большего удобства для пользователя.
//pascalabc.net 3.3,сборка 1611 от 06.01.2018//внимание! если программа не работает, обновите версию! begin var mas: =arrrandom(20,-99,99); mas.println; var a: =mas[0: 10]; var b: =mas[10: 20]; writeln('количество положительных элементов=',a.where(t-> t> 0).count); writeln('количество отрицательных элементов=',b.where(t-> t< 0).count); end. это как учат в школе : -> var i,k,l: integer; mas: array[1..20] of integer; begin randomize; for i: =1 to 20 do mas[i]: =random(-99,99); for i: =1 to 10 do if mas[i]> 0 then k: =k+1; for i: =11 to 20 do if mas[i]> 0 then l: =l+1; writeln('количество положительных элементов=',k); writeln('количество отрицательных элементов=',l); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какие основные элементы содержит рабочее окно папки