Создать массив из 10 случайных чисел на промежутке от 0 до 100, в первую позицию…

Uses crt; const N=10; var a: array [1… N] of integer; x: integer; begin randomize; for x: =1 to 10 do begin a[x]: =random (101); writeln ('a[',x,']: ',a[x]); end; a[1]: =100; a[9]: =a[10]; writeln; for x: =1 to 9 do writeln ('a[',x,']: ',a[x]); end.