Написать программу формирования массива из 15 целых чисел…

program picaso; uses crt; type vector=array[1… 100] of integer; var a: vector; i: byte; begin clrscr; for i: =1 to 15 do a[i]: =Random (50); for i: =1 to 15 do write (a[i],'); end. Универсальный метод из скольки чисел хочешь (n это номер чисел) program picaso; uses crt; type vector=array[1… 100] of integer; var a: vector; i,n: byte; begin clrscr; writeln ('n: '); readln (n); for i: =1 to n do a[i]: =Random (50); for i: =1 to n do write (a[i],'); end.