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

Vara: array[1… 10] of integer; i: integer; beginrandomize; writeln ('Ishodnyy massiv: '); for i: =1 to 10 dobegina[i]: =random (10)+1; write (a[i],'); end; for i: =1 to 5 dobegina[i*2]: =a[i*2]+a[i*2-1]; a[i*2-1]: =a[i*2]-a[i*2-1]; a[i*2]: =a[i*2]-a[i*2-1]; end; writeln ('Novyy massiv: '); for i: =1 to 10 dowrite (a[i],'); end.