№67 разгадайте кроссворд "система объектов" 1.система входящая в состав другой системы. 2.появление у системы новых признаков, которыми не обладал ни один из её элементов в отдельности (два слова) 3.порядок объедения элементов, составляющих систему. 4.подход, при котором учитывается взаимодействие и взаимовлияние всех компонетов системы (два слова 5.описание системы, при котором указывается её входы и выходы, а также зависимость между ними. 6.система включающая в себя другую систему. 7.растение- пример системы. 8.целое, состоящее из взаимосвязанных частей. 9.часть системы. 10.автомобиль-это система.

1. подсистема 2. системный эффект 3. структура 4. системный подход 5. черный ящик 6. надсистема 7. природная 8. система 9. компонент 10. техническая

Var a,b: array [0..100] of integer; i, j, s,k,max: integer; begin for i: = 1 to 5 do begin for j: =1 to 20 do begin  k: =k +1; (a[k]): = random(90)+78; write((a[k]: 4)); if max < a[k] then begin max: =a[k]; s: =k; end; end; write('a[' + s +'] =': 8, max: 4 ); b[s]: =max; writeln; s: =0; max: =0; end; writeln; k: =0; for i: = 1 to 5 do begin for j: =1 to 20 do begin  k: =k +1; if b[k] > 0 then (b[k]): = random(90)+78; //забег номеров победителей if max < b[k] then begin max: =b[k]; s: =k; end; //победитель среди победителей write((b[k]: 4)); end; writeln; end; write('a[' + s +'] =': 8, max: 4 ); end. только мало что осталось от той программы много  ошибок главная  n нельзя в константы она не будет делиться и т.д.

{1} var       i, n, s: integer; begin       i : = 0;       writeln('введите последовательность чисел,оканчивающихся отрицательным числом');       repeat               readln(n);               if n > 0 then begin                       s : = s + n;                       i : = i + 1;               end;       until n < 0;       writeln(s / i); end. {2} var       i, n: integer; begin       i : = 0;       writeln('введите последовательность чисел,оканчивающихся 0');       repeat               readln(n);               if n < > 0 then                       i : = i + 1;       until n = 0;       writeln(i); end.