Написать программу заполнения одномерного массива случайным образом, используя процедуру
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
//const n=10; type arr1=array[1..10] of integer; var a:arr1; procedure mas_vvod(k:integer; var b:arr1); var i:integer; begin writeln('заполнение массива слуайными числами'); randomize; k:=10; for i:=1 to k do b[i]:=random (50); end; procedure mas_out (k:integer; var b: arr1); var i: integer; begin write ('Вывод массива: '); k:=10; for i := 1 to k do write (b[i]:4); writeln; end; begin mas_vvod(10,a); mas_out (10,a); end. |