Найдите ошибки ; надо program mass; uses crt; var b: array [1..10] of integer; i: real; begin clrscr; randomize; for i: =1 to 10 do begin b: =1+random (10); write (‘b[‘: 3, i,’]=‘, b[i]); end; readkey; end.

konfetabox    3   13.09.2019 21:40    1