Вчем ошибка ? var a: array [1..10] of integer; j,m,n,i: integer; begin m: =0; n: =0; for i: =1 to 10 do begin readln(a[i]); end; while n< 10 do begin j: =n+1; for i: =j to 10 do begin if a[i]> m then m: =a[i]; end; for i: =j to 10 do begin if m=a[i] then begin writeln(i); n: =i; end; end; end; end.

sstadina9    1   12.05.2019 21:22    1