посчитайте составить блок-схему программы: program proced; var i,N:integer; A:array [1. . 255] of integer; B:array [1. . 255] of integer; C:array [1. . 255] of real; procedure funOne(x :integer); var g:integer; begin for g:=1 to N do begin A[g]:=random(91)-43; write(a[g]:7,''); end; writeln; for g:=1 to N do begin B[g]:=random(88)-36; write(B[g]:7,''); end; writeln; end; begin write('Введите кол-во элементов массива N = '); read(N); funOne(1); for i:=1 to N do begin C[i]:=(A[i] + B[i]) / 2; write(C[i]:7:1); end; end.