//видимо, это одна , так как "изменения" во второй не указаны //pascal abc.net v3.1 сборка 1172 const n=20; var ar: array[1..n] of integer; i: integer; begin randomize; writeln('first array: '); for i: =1 to n do begin ar[i]: =random(10)-3; write(ar[i]: 4); if ar[i]> 0 then ar[i]: =ar[i]*2 else ar[i]: =0; end; writeln; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример работы программы: first array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3 final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6
Shitikov-M.A.1307
17.12.2020
Выделение объектов в окне папки в окне папки можно выделять как один объект (щелчком мыши по значку), так и группу объектов, т.е. несколько объектов сразу: для выделения несмежных объектов щелкайте на них при нажатой клавише ; для выделения смежных объектов, щелкните на первом из них, нажмите клавишу и, удерживая ее, щелкните на последнем; для выделения всех объектов – выполните команду меню правка выделить все либо используйте сочетание клавиш +a . также группу объектов можно выделить протягиванием. чтобы снять выделение с объектов, достаточно щелкнуть в свободном месте окна папки.