Дан массив из 10 положительных чисел. А (N)=(a0… .a10). Найти максимальный элемент…

Uses crt; const n=10; var a: array[1… n] of integer; i,max,k: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (30); writeln (a[i]); end; writeln; max: =0; for i: =1 to n dobeginif a[i]>max then beginmax: =a[i]; k: =i; end; end; a[k]: =a[k]+a[n]; a[n]: =a[k]-a[n]; a[k]: =a[k]-a[n]; for i: =1 to n dowriteln (a[i]); end.