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.
Поделитесь своими знаниями, ответьте на вопрос:
Какое минимальное количесво бит потребуется для кодирования высоты музыкальной ноты из диапозона рояла ( всего 88 значений)