Нарисовать блок-схему к программе: program a9; uses crt; var i,j,s: integer; a,b: array[1..3,1..3] of integer; begin randomize; for i: =1 to 3 do for j: =1 to 3 do a[i,j]: =random(9); for i: =1 to 3 do begin for j: =1 to 3 do write(a[i,j],''); writeln; end; s: =0; for i: =1 to 3 do for j:
=1 to 3 do if i=j then s: =s+a[i,j]; writeln('s=',s); readln; end.

alioo    2   08.10.2019 11:40    0