пример: даны целые числа а1...аn создайте новый (цепь -по моему массив)тiзбек :если аbs(аi) не равно mах(аi...аn), тогда заменить аi- в массиве нулями , в противном случае заменить аi- на 1 . (i=1...n) =>индекс
program esep1;uses crt;var n,k,max,i:integer;a: array[1..100] of integer;b: array[1..100] of integer;beginclrscr;write('Vvedite n->');readln(n);for i:=1 to n dobeginwrite('a[',i,']=');readln(a[i]);end;for i:=1 to n dob[i]:=a[i];max:=a[1];for i:=2 to n dobeginif (a[i]>max) then max:=a[i];end;for i:=1 to n doif (abs(a[i])=max) then b[i]:=1else b[i]:=0;writeln;writeln;writeln('Massiv a');writeln;for i:=1 to n dowrite('a[',i,']=',a[i],' ');writeln;writeln;writeln('Massiv b');writeln;for i:=1 to n dowrite('b[',i,']=',b[i],' ');readkey;end.