Const n=10; var a:array[1..n] of integer; i,s,min:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln; s:=0; min:=a[1]; for i:=1 to n do begin if a[i]>0 then s:=s+a[i]; if a[i]<min then min:=a[i]; end; writeln('s = ',s,' min = ',min); for i:=1 to n do if a[i]>0 then a[i]:=s else if a[i]<0 then a[i]:=a[i]-min; writeln('Измененный массив:'); for i:=1 to n do write(a[i]:4); writeln; end.
Все роботы должны быть автономными (кроме класса управляемых роботов).
● Робот не может существенно увеличиваться в размерах после начала
матча. Робот не должен разделяться на куски.
● Во время матча допустимым считается отделение от робота винтов,
гаек и других частей с общей массой менее 5 г.
● Перед соревнованием роботы должны пройти технический контроль.
● Каждый робот получает регистрационный номер. Номер размещается
на роботе для того, чтобы жюри и зрители могли идентифицировать
его.
Объяснение: