Написать программу формирования массива из 15 целых чисел от 0 до 50 и вывод массива на экран.

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.