1. продолжите фразы. а) свойства объекта б) действия объекта в) поведение объекта г) состояние объекта 2. запишите несколько действий, которые можно совершить с объектами операционной системы. а) файл б) папка заранее огромное вам !

Свойство объекта  - отвечают на вопросы, чем может отличаться один объект от другого? ,что может измениться у объекта при выполнения действия? действие объекта - отвечает на вопросы, что он сможет сделать? ,что с ним можно сделать? поведение объекта - например птицы,воздушные шары и вертолет неодинаково летают. состояние объекта - например отсуствие сильного ветра(тихо) и осадков(солнечно) как то так.

1.program z; var a: array [1..10] of integer; i,t: integer; s: real; beginfor i: =1 to 10 dobegina[i]: =random(1,100); write(a[i]: 4); if (odd(i)) and (odd(a[i])) then  begins: =s+a[i]; t: =t+1; end; end; writeln; write('cреднее арифметическое = ',s/t); end.2.program z; var a: array[1..10] of integer; max,i: integer; beginwriteln('исходный массив'); for i: =1 to 10 dobegina[i]: =random(1,100); write(a[i]: 4); if a[i]> max then max: =a[i]; end; writeln; writeln('измененный массив'); for i: =1 to 10 dobeginif not(odd(a[i])) then a[i]: =max; write(a[i]: 4); end; end.

Есть много разных способов решения этой . например: var n: integer; b: boolean; m: set of 0..9; begin write('n='); readln(n); m: =[]; b: =false; while (n> 0) and not b  do   if n mod 10 in m then b: =true else begin m: =m+[n mod 10]; n: =n div 10; end; if b  then writeln('в записи введенного числа есть одинаковые цифры')       else writeln('в записи введенного числа нет одинаковых цифр'); end. пример: n=123432 в записи введенного числа есть одинаковые цифры