Правильно ли написано? : program ntyn; var i, s : integer; a : array [1..10] of integer; begin s: =0; for i: = 1 to 10 do a[i]: = random (5)+1; for i: = 1 to 10 do write (' в квартире на ' , i , ' проживает ' , a[i] , ' жителей ') end.

beka22535    2   22.09.2019 21:10    0