найти ошибку program main;
uses crt;
var a: array[1..15]of integer
Begin
randomize;
for j:= to 15 do Begin
a[j]:=random(15)-10,
writela(a[j]);
end;

end.

карина5647    3   24.11.2020 10:03    4