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

Program Program1; Vara: array [1… 10] of integer; i,temp: integer; beginrandomize; writeln ('Исходный массив: '); for i: =1 to 10 dobegina[i]: =random (10)+1; writeln ('a[',i,']=',a[i]); end; temp: =a[1]; a[1]: =a[10]; a[10]: =temp; writeln; writeln ('Полученный массив: '); for i: =1 to 10 dowriteln ('a[',i,']=',a[i]); end.