Виды информации, используемой в юридической деятельности

Нормативно-правовая,ненормативная правовая информация и их подвиды.

Const     max= 10; // количество элементов в массиве var     a: array [1..max]     i,m: integer; begin     write('введите',max,'чисел');     for i: =1 to max do       read(a[i])     write('введите число');     read(m);     for i: =1 to max do       begin           if a[i] = m              then                 begin                   write('это число есть в массиве');                   exit                 end;       end; write('этого числа нет в массиве') end.

1)var ar: array[1..4] of integer; begin ar[1]: =2; ar[2]: =2; ar[3]: =2; ar[4]: =2; end. 2)var ar: array[1..5] of integer; a: integer; begin for a: =1 to 5 do begin; ar[a]: =a; writeln(ar[a]); end; end. 3)var ar: array[1..7] of integer; a,b,c: integer; begin readln(a); for b: =1 to 7 do begin; ar[b]: =a+b-1; writeln(ar[b]); end; end.4)var ar: array[1..6] of integer; b: integer; begin for b: =1 to 6 do begin; readln(ar[b]); ar[b]: =ar[b]*2; writeln(ar[b]); end; end. 5)var ar: array[1..6] of integer; b: integer; begin randomize; for b: =1 to 6 do begin; ar[b]: =random(10); ar[b]: =ar[b]*ar[b]; writeln(ar[b]); end; end.