Составьте программу, которая заполняет массив a [1… 10] случайными целыми числами в…

Program katyadamn; var a: array[1… 10] of integer; i,j: integer; beginwriteln ('Исходный массив: '); writeln; for i: =1 to 10 dobegina[i]: =random (9)+1; write (a[i],'); end; j: =a[10]; a[10]: =a[1]; a[1]: =j; writeln ('Полученный массив: '); writeln; for i: =1 to 10 dowrite (a[i],'); end.