Все элементы заданного массива вещественных чисел A (N) , начиная с первого по…

Uses crt; const n=20; var a: array[1… n] of integer; s: array[1… n] of integer; i,j: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (20); write (a[i]: 3); end; writeln; for i: =1 to n doa[i]: =a[i]-1; for j: =1 to n dofor i: =1 to n doif i=j then s[j]: =a[i]; for j: =1 to n dowrite (s[j]: 3); end.