Найдите ошибки ; надо 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.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку